[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