Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

RE: Return a Unique Array

by sergio (Sexton)
on Feb 25, 2000 at 19:44 UTC ( #4395=note: print w/ replies, xml ) Need Help??


in reply to Return a Unique Array

GrassHopper! Always read the books. In the Perl Cookbook you can find


my %seen =() ;
@unique_array = grep { ! $seen{$_}++ } @non_unique_array ;

Which makes the soul happier!


Comment on RE: Return a Unique Array

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://4395]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2014-11-23 04:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (128 votes), past polls