in reply to Re^2: Sort based on a delimited field in array elements without affecting original array elements
in thread Sort based on a delimited field in array elements without affecting original array elements

sub ST(&@){
        my $metric=shift;
        map {$_->[0]}
        sort {$a->[1] cmp $b->[1]}
        map {[$_,&{$metric}]} @_
}

[download]
  • Comment on Re: Re^2: Sort based on a delimited field in array elements without affecting original array elements
  • Download Code

In Section Seekers of Perl Wisdom