[lug] perl :)

[j davis]

Hello
  Sorry to be posting this here....i used to get mail from
  the boulder perl monger then it just seem to stop....or maybe
  there just aint any to get..? Anyway consider this...

@unique = grep { ++$count{$_} < 2 }
               qw(a b a c d d e f g f h h);
print "@unique\n";

what does the qw do? and could i change 2 to say 3 if i wanted
everything that apperad twice? Thanks....i am finally getting
it I think!! :)

thanks,
jd

jd at taproot.bz
http://www.taproot.bz

_________________________________________________________________
Chat with friends online, try MSN Messenger: http://messenger.msn.com