[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