Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re^2: Sort - can't

by QM (Parson)
on Aug 29, 2005 at 01:30 UTC ( #487318=note: print w/replies, xml ) Need Help??

in reply to Re: Sort - can't
in thread Sort - can't

You've failed again to ask your question appropriately.

First the diagnoses:

($sub1, $sub2, $sub3) = split (/\_/, @array,3);
split doesn't work on an array!!!
while my $elem (@array) { ($sub1,$sub2,$sub3) = split(/_/, $elem, 3); # do something here... }
Now you might have something in $sub3, but this doesn't make any sense either:
$sub3 = sort { $b <=> $a } $sub3;
You can't sort a scalar (well, it doesn't do anything interesting)

Seems what you really want to do is sort the elements of @array by the last field (numerically), in which case you'll need something like this:

my @a2; while my $elem (@array) { my @fields = split(/_/, $elem, 3); push @a2, \@fields; } my @a3 = sort { $b->[2] <=> $a->[2]} @a2;
But you should really see How (Not) to Ask a Question.

Quantum Mechanics: The dreams stuff is made of

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (8)
As of 2020-12-01 21:30 GMT
Find Nodes?
    Voting Booth?
    How often do you use taint mode?

    Results (22 votes). Check out past polls.