[Cascavel-pm] [Spam] Re: PrincipaisContribuidoresCascavelPM

[Luis Motta Campos]

On May 28, 2007, at 7:41 PM, Alceu Rodrigues de Freitas Junior wrote:

> Segue os dois centavos de hoje abaixo...

   $a é uma péssima escolha de nome, já que é uma variável  
"reservada" do perl... talvez $aaa fosse uma escolha melhor...

>  # que diabos é $a?
>     for my $a ( split m#$/#, $buffer ) {
>
>         $from = $1 if $a =~ m#^\s*From: (.+)$#;
>
>         if($a =~ /^\s*\(?([\w]+)\)?((:?\+|-){2})\s*(#.*)?$/) {
>
>             # não dá para tirar esse eval daqui? seria melhor por  
> questões de performance
>             eval "\$monks{" . lc $1 . "}$2";
>
>             print "From: $from$/$a$/$/";
>
>         }
>     }
> }

   Alguém pode por favor re-escrever este trecho?
   Eu tenho dois dragões para matar hoje aqui e não tenho tempo para  
ler e entender tudo neste código... sorry. :-)
   Putamplexos com Full-Plate Armor.
--
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}