RE: Sorting

[Jeff Pinyan]

On May 10, Jeff Pinyan said:

>  {
>    my %cache;
>    @new = sort {
>      ($cache{$a}) = $a =~ /\@([^:]+)/ if not exists $cache{$a};
>      ($cache{$b}) = $b =~ /\@([^:]+)/ if not exists $cache{$b};
>      $cache{$a} cmp $cache{$b}
>    } @orig;

   }

-- 
Jeff "japhy" Pinyan      [EMAIL PROTECTED]      http://www.pobox.com/~japhy/
Are you a Monk?  http://www.perlmonks.com/     http://forums.perlguru.com/
Perl Programmer at RiskMetrics Group, Inc.     http://www.riskmetrics.com/
Acacia Fraternity, Rensselaer Chapter.         Brother #734