[SP-pm] sort

Eden Cardim edencardim em gmail.com
Terça Janeiro 23 10:45:42 PST 2007


On 1/23/07, Eden Cardim <edencardim em gmail.com> wrote:

Ooops, a primeira versão anterior está errada, eis a versao corrigida
(mas ainda sem testar :)):

 my @sorted =
     map { @$_[0, 1] }
     sort { $a->[1] <=> $b->[1] }
     map { [$_, $ENV{$_}] }
     keys %ENV;

 while( my($key, $value) = each @sorted) {
     print "Nome: $key\tValor: $value, "\n";
 }

-- 
Eden Cardim
Instituto Baiano de Biotecnologia
Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
Laboratório de Bioinformática
--
"you seem to think that 'close enough' is close enough...
please learn to be 'literal' around programming."
merlyn - on irc.freenode.net#perl


Mais detalhes sobre a lista de discussão SaoPaulo-pm