RE: unique values

[Wagner-David]

        One way:

#!perl -w

@list=(word1,word2,word1,WORD1,word3);

my %MyUniqueHash = ();
foreach ( @list ) {
   $MyUniqueHash{lc($_)} = 1;
 }
foreach (sort keys %MyUniqueHash) {
   print "$_\n";
 }

Output:
word1
word2
word3

Wags ;)
-----Original Message-----
From: Bart Schelstraete [mailto:[EMAIL PROTECTED]]
Sent: Monday, November 26, 2001 23:03
To: [EMAIL PROTECTED]
Subject: unique values


Hello beginners-list,

  
 Do somewhone know how to cut unique values from a list - ignoring the
 case (if possible) - with perl?

 For example:
     @list=(word1,word2,word1,WORD1,word3)

     and this must result in => (word1,word2,word3)

 
Best regards,
 Bart                          mailto:[EMAIL PROTECTED]

--
  'Unix is not a 'A-ha' experience, it is more of a 'holy-shit' experience. '


-- 
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]