Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Sorting sub pains...

by tcf22 (Priest)
on Oct 21, 2003 at 23:51 UTC ( [id://301113]=note: print w/replies, xml ) Need Help??


in reply to Sorting sub pains...

You have to prototype the sort function and it will pass them into the function.
my @sorted_array = sort sort_func @array; sub sort_func($$){ my $var1 = $_[0]; my $var2 = $_[1]; return $var2 <=> $var1; }
but it sounds like you need the hash ref also, so you can use the sort BLOCK ARRAY construct, but doing it inline makes the most sense.
Example:
my @sorted_array = sort {&sort_func($::a, $::b, $source, $data)} @arra +y; sub sort_func(){ my $var1 = $_[0]; my $var2 = $_[1]; my $source = $_[2]; my $data = $_[3]; return $data{$source}{$var2} <=> $data{$source}{$var1}; }

- Tom

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2024-03-19 06:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found