[SP-pm] Problema com encoding

[Luis Motta Campos]

Eden Cardim wrote:
> while( read INPUT, $var, $length ) {
> 
>          foreach my $key ( keys (%dictionary) ) {
>               $var =~ s/$key/$dictionary{$key}/g;
>          }
> 
>          print OUTPUT $var;
> }
> 
> Golfe alguém? ;)

   Lá vou eu perder outra partida... onde está o meu madeira #2? ;-)

   # Assumindo que isso processa linhas terminadas em "\n":
   # Renomeando %dictionary == %d
   # Renomeando INPUT == $i
   # Renomeando OUTPUT == $o
   select $o;
   while(<$i>){for my$k(keys%d){s/$k/$d{$k}/og}print;}
   # Isso deve fazer mais ou menos a mesma coisa.
   # E ainda deve funcionar sob strict!

   Putamplexos!
-- 
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}