Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re^2: Create unique array --the hard way!

by Anonymous Monk
on Mar 07, 2014 at 15:56 UTC ( #1077405=note: print w/replies, xml ) Need Help??

in reply to Re: Create unique array --the hard way!
in thread Create unique array --the hard way!

Got it!
if ( ! grep ( /^$element$/, @unique_array ) )

Replies are listed 'Best First'.
Re^3: Create unique array --the hard way!
by jethro (Monsignor) on Mar 07, 2014 at 16:10 UTC

    Great that you found a solution yourself

    Since you didn't follow your own idea of using sorting to identify doubles the sort step is now useless.

    To follow your original plan you would have to do something like this:

    my $previous=""; foreach my $element ( @sorted_array_q3 ) { if ( $element ne $previous ) { push( @unique_array, $element ); } $previous= $element; }

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2020-10-28 12:27 GMT
Find Nodes?
    Voting Booth?
    My favourite web site is:

    Results (260 votes). Check out past polls.