@list1 = qw(two one two zero six five six seven zero);
@list2 = keys(%{{map{$_=>1}(@list1)}});

-----Original Message-----
From: Juergen Bertram [mailto:[EMAIL PROTECTED]
Sent: Thursday, July 24, 2003 11:00 AM
To: [EMAIL PROTECTED]
Subject: eleminating dupes in @list


hi,

I need a procedure to eleminate dupes in a @list

Ex: @list1 = qw(two one two zero six five six seven zero);

should be changed to:

@list2 = qw(two one zero six five seven);

There's no need to sort the list.

tnx 
...and cu
Juergen

-- 
Juergen Bertram  ______________________  mailto:[EMAIL PROTECTED]
Belwue-Koordination                            Tel: 0711/685-5797
Rechenzentrum der Universitaet Stuttgart       Fax:
0711/678-8363           
Allmandring 3A, 70550 Stuttgart, http://www.belwue.de/support/ulm

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to