[SP-pm] Problema com encoding

[Eden Cardim]

On 7/13/07, Solli Honorio <shonorio em gmail.com> wrote:
>     my $bytes_read = read( INPUT, $var ,$length );
>
>
>     while ( $bytes_read > 0 ) {
>         foreach my $key ( keys (%dictionary) ) {
>              $var =~ s/$key/$dictionary{$key}/g;
>         }
>
>         print OUTPUT $var;
>         $bytes_read = read(INPUT, $var, $length);
>      }

essa parte pode ser simplificada para:

while( read INPUT, $var, $length ) {

         foreach my $key ( keys (%dictionary) ) {
              $var =~ s/$key/$dictionary{$key}/g;
         }

         print OUTPUT $var;
}

Golfe alguém? ;)

-- 
Eden Cardim
Instituto Baiano de Biotecnologia
Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
Laboratório de Bioinformática