in reply to Re: Reverse sort array
in thread Reverse sort array

Thank you for your reply. I am sorry but it is not immediately clear to me how to use this code you have written.

Replies are listed 'Best First'.
Re^3: Reverse sort array
by AnomalousMonk (Archbishop) on Aug 19, 2009 at 22:41 UTC 
    my $reverse = its_reverse_sorting(time);  # set or clear flag

my $sorter = ( $reverse
    ? sub { $b cmp $a }
    : sub { $a cmp $b }
);

for (sort $sorter @array) {
    ...
}

    [download]
[reply]
[d/l]
Re^3: Reverse sort array
by ikegami (Patriarch) on Aug 20, 2009 at 02:50 UTC
    I renamed $something to $reverse, but it's otherwise a drop-in replacement for the code you posted.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom