Re: Array splitting

in reply to Array splitting

The { $a cmp $b } comparison is the default behaviour for sort so doesn't have to be mentioned specifically if you don't wish. You can populate your @A and @trash arrays in one go by eliminating the intermediate @sorted array and pushing onto the appropriate array using a ternary (see Conditional Operator).

$ perl -Mstrict -Mwarnings -E'
> my @notSorted = qw{ Beep Ape Circus Arg };
> my( @A, @trash );
> push @{ $_ =~ m{^A} ? \ @A : \ @trash }, $_ for sort @notSorted;
> do {
>    local $" = q{, };
>    say qq{@A};
>    say qq{@trash};
>    };'
Ape, Arg
Beep, Circus
$
[download]

I hope this is helpful.

Cheers,

JohnGG

Comment on Re: Array splitting Select or Download Code

Replies are listed 'Best First'.
Re^2: Array splitting by Hopfi (Novice) on Nov 01, 2012 at 00:18 UTC
Alright. Thanks very much guys! Im more a C++ guy and not used to those different operations (like eq != ==).	[reply]

In Section Seekers of Perl Wisdom