[Cascavel-pm] Voltando...

[Adriano Vivan Borro]

Tks Nelson,

Soh tenho 2 duvidas, ateh q nao eh muito.... :-D

1o. Vc usou " next if /^$/; ". Entendo perfeitamente isto. Porem, acho
estranho q o Perl possibilita trocar o comando com o argumento. C eu
usar " if /^$/ next ; " dah no mesmo. Nao eh o primeiro caso de troca de
posicao entre comando e argumento que vejo. Isso me deixa meio confuso
as vezes, e nunca sei como eh melhor escrever. Ou... tanto faz ?

2o. Qdo vc usa -> , o q isto quer dizer? Eh algum tipo de referencia, ou
apontador?

Acho q vou ter que deixar os bares um pouco de lado e me dedicar mais ao
estudo. :-P

[]'s

Nelson Ferraz wrote:

> > 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
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
>
> --------------------------
> Esta mensagem foi verificada
> pelo sistema de antivírus DIM e
> acredita-se estar livre de Virus.
> Virus data file v4301 created Oct 31 2003