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
- Regexp Question Gross, Stephan
- Sorting Nic LAWRENCE
- Re: Sorting Paul
- RE: Sorting Nic LAWRENCE
- RE: Sorting Jeff Pinyan
- RE: Sorting Jeff Pinyan
- RE: Sorting Peter Scott
- RE: Sorting Jeff Pinyan
- Re: Sorting Me
- RE:[OT]Sorting (with friendly list n... Paul
- [OT] Origin of "Orcish Mane... Jeff Pinyan
- Re: Regexp Question Carl Rogers
- RE: Regexp Question Nic LAWRENCE
- Re: Regexp Question Paul
- regexp question Martin Weinless