<span style="font-family: courier new,monospace;">Hummm posso tentar entender o quê rola neste código ...</span><br style="font-family: courier new,monospace;"><div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
__PERL__ </blockquote><div><span style="font-family: courier new,monospace;">... bom, aqui você coloca todo o conteúdo de um arquivo na variável, pouco recomendável para arquivos grandes, no meu teste o 'return <$fh>;' retornava uma mensagem de erro, deixei apenas o <$fh> e funcionou, acho que o Damian Conway não aprovaria esta parte do código ...
</span><br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"> my $text = do {<br> local $/ = undef;<br> open my $fh, '/path/to/file.txt'
<br> or die $!;<br> return <$fh>;<br> # nao precisa dizer close($fh)<br> };<br><br> my %hash;<br><br> study $text; # opa! uma cerveja para quem souber o que faz isso!<br></blockquote><div><span style="font-family: courier new,monospace;">
... você esta ficando famoso em apostar cerveja e não pagar, será que teremos que ir à Europa cobrar ?!?! Pelo o quê eu compreendi na documentação, aqui você pede para o engine do regex avaliar a possibilidade de criar um índice com os matches desejado, que poderá resultar em ganho de performance. Eu não conhecia este cara, mas me parece que isto poderia melhorar bastante o desempenho de parse dos meus longos arquivos de logs, carregando blocos do log e efetuando o parse como vc está mostrando aqui ...
</span><br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><br> while ( my ( $campo, $que, $eu, $quero ) =</blockquote><div><span style="font-family: courier new,monospace;">
... aqui eu acho que ficaria melhor receber num array 'while ( my @campos_que_eu_quero = ' ...</span> <br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br> $text =~ m{ $REGEXP_AQUI }mxs ){<br><br> # Feio, muito feio! Alguem tem uma ideia melhor?</blockquote><div><span style="font-family: courier new,monospace;">... com certeza, como pode um 'santo' escrever coisas deste tipo ? Mas antes me explica uma coisa, o que é '$$_' ? Uma melhor alternativa seria 'for (@campos_que_eu_quero) { push @{ $hash{ $_ } }, $$_ }
<span style="font-family: courier new,monospace;"> }' ...</span><br></span></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><br> map { push @{ $hash{ $_ } }, $$_ }, qw( campo que eu quero );
<br><br> }<br><br> undef $text;<br> __END__<br><br> ATENCAO: Eu escrevi isso de cabeca, por esporte e por prazer. Peco<br>que uma boa alma teste o meu idioma e veja se isso funciona mesmo.<br><br> Eu respondo perguntas para quem tiver problemas para compreender o
<br>codigo.<br><br> Espero que isso ajude.<br><div><div></div><div class="Wj3C7c"> Putamplexos!<br>--<br>Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,<br>Perl fanatic evangelist, and amateur {cook, photographer}
<br>_______________________________________________<br>SaoPaulo-pm mailing list<br><a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm
</a><br><br></div></div></blockquote></div><br><br clear="all"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa