[Cascavel-pm] Voltando...

Nelson Ferraz nferraz em phperl.com
Segunda Novembro 3 18:05:07 CST 2003


> O resultado deverá ser:
> 
> CACC
>   S5 : 8
>   S22 : 4
> ACGG
>   S15 : 2
> AACT
>   S10 : 3

Hmmm... só depois de enviar a mensagem percebi que os resultados não 
estavam ordenados. Isto é fácil de resolver. Aqui vai uma nova versão 
(desta vez estou lendo as linhas diretamente do final do arquivo):

!/usr/bin/perl

while (<DATA>) {
   next if /^$/;
   ($tag,$cluster,$num) = split(/\s+/,uc($_));
   $count->{$tag}->{$cluster} = $num
}

foreach $tag (sort keys %{$count}) {
   print "$tag\n";
   foreach $cluster (sort keys %{$count->{$tag}}) {
     $num = $count->{$tag}->{$cluster};
     print "- $cluster\t$num\n";
   }
}

__DATA__
AaCT    S10    3
CaCc    S5    8
aCgg    S15    2
cAcc    S22    4

-- 
Nelson Ferraz

GNU BIS: http://www.gnubis.com.br




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