Re^2: Multiple Sort on selected column

I agree with one small caveat. It might be better to change the cmp_by sub to do a numeric comparison in addition to the string comparison. With just the cmp, 600000 sorts after 55000 but 400000 would sort before. The following will sort numerically largest to smallest then alphabetically.

sub cmp_by {
    my $result;    
    for my $term (@_) {
        $result ||= +$b->{$term} <=> +$a->{$term} or $a->{$term} cmp $
+b->{$term};
    }
    return $result;
}
[download]

Comment on Re^2: Multiple Sort on selected column Download Code

Replies are listed 'Best First'.

Re^3: Multiple Sort on selected column
by kennethk (Abbot) on Oct 19, 2012 at 15:07 UTC

or

Operator Precedence and Associativity

or die

+

0+

If you want to do auto-detection, you'd be better off using the Conditional Operator using looks_like_number from Scalar::Util:

sub cmp_by {
    use Scalar::Util 'looks_like_number';
    my $result = 0;
    for my $term (@_) {
        $result ||= looks_like_number($a)
                  ? $a->{$term} <=> $b->{$term}
                  : $a->{$term} cmp $b->{$term};
    }
    return $result;
}
[download]

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

[reply]
[d/l]
[select]


Keep It Simple, Stupid
	PerlMonks