Try grep:
push @array, $item unless grep { $_ eq $item } @array;
http://perldoc.perl.org/functions/grep.html
Jason Elbaum
On 10/8/07, Ernst, Yehuda <[EMAIL PROTECTED]> wrote:
> Hello!
>
> I want to enter items to array only if they does not exits there(i need 1
> item of each type)
>
> if i have a b c d d d c
> the array will have
>
> a b c d
>
> i saw the function exists but it is for hash not array (% not @)
>
> does perl have it also for array (@) type?
>
>
>
> Thanks
>
> Yehuda Ernst יהודה ארנסט
> NDS Technologies Israel Ltd. mailto:[EMAIL PROTECTED]>
> Jerusalem Tel: +972 (2) 589-4427
> PO Box 23012 Fax: +972 (2) 589-4825
> Israel. 91235 Cell +972 54 5664427
>
> *********************************************************************************************************
> This e-mail is confidential, the property of NDS Ltd and intended for the
> addressee only. Any dissemination, copying or distribution of this message
> or any attachments by anyone other than the intended recipient is strictly
> prohibited. If you have received this message in error, please immediately
> notify the [EMAIL PROTECTED] and destroy the original message. Messages sent
> to and from NDS may be monitored. NDS cannot guarantee any message delivery
> method is secure or error-free. Information could be intercepted, corrupted,
> lost, destroyed, arrive late or incomplete, or contain viruses. We do not
> accept responsibility for any errors or omissions in this message and/or
> attachment that arise as a result of transmission. You should carry out your
> own virus checks before opening any attachment. Any views or opinions
> presented are solely those of the author and do not necessarily represent
> those of NDS.
>
> NDS Limited Registered office: One Heathrow Boulevard, 286 Bath Road, West
> Drayton, Middlesex, UB7 0DQ, United Kingdom. A company registered in England
> and Wales Registered no. 3080780 VAT no. GB 603 8808 40-00
>
> To protect the environment please do not print this e-mail unless necessary.
> **********************************************************************************************************
>
> _______________________________________________
> Perl mailing list
> [email protected]
> http://perl.org.il/mailman/listinfo/perl
>
_______________________________________________
Perl mailing list
[email protected]
http://perl.org.il/mailman/listinfo/perl
