Pessoal,<br><br>Na última segunda-feira, 12/3/2010, fui um dos felizardos em assistir a palestra do Damian Conway (<a href="http://en.wikipedia.org/wiki/Damian_Conway">http://en.wikipedia.org/wiki/Damian_Conway</a>). Teóricamente este ET estava aberto a qualquer pessoa que desejasse apresentar alguma coisa e com tema livre, mas não sei porque ninguém postulou apresentação junto com o Damian.<br>
<br>Além de hacker, ele é um showman e suas apresentações são no mínimo interessante, mas nunca enfadonhas. Foram 2 horas de showman sobre como fazer coisas que 'não é possível' no Perl (sem XS ou filters).<br><br>
Sobre tudo o que ele falou, tem 2 coisas que eu acho aplicável no mundo real, sendo elas : <br><br>1o. Fazer um slurp com o open implícito. Isto pode provocar discussão da utilização, ou não, nos sistemas de produção (então use com moderação).<br>
<code><br><br><span style="font-family: courier new,monospace;">my $conteudo = do { local(@ARGV, $/) = $file and <> };</span><br><br>ou na versão do nuba/mst<br><br><span style="font-family: courier new,monospace;">my $conteudo = do { local(@ARGV, $/) = $file; <> };</span><br>
<br></code><br clear="all"><br>2o. Alterar a variável $0 para dar informações sobre o estatus do aplicativo (isto não funciona em todos os SO, mas é bem interessante).<br><code><br><br><span style="font-family: courier new,monospace;">sub rotina_longa {</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"><br> ... </span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> local $0 = qq/$0 [50% do trabalho feito]/</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> ...</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">}</span><br style="font-family: courier new,monospace;">
<br></code><br><br>Mas a maior parte da apresentação estava relacionada sobre como 'hackear' o comportamento aguardando do Perl, tal como :<br><br><span style="font-family: courier new,monospace;">@z = <fed by diamante operator>; # ótimo para golf hein fernando :D</span><br style="font-family: courier new,monospace;">
<br>ou coisas mais macabras ...<br><br><span style="font-family: courier new,monospace;">$hash->{key} eq $hash<-{key}</span><br><br>que significa <br><br><span style="font-family: courier new,monospace;">$hash->{key} eq q//</span><br>
<br>É isto aí,<br><br>Um abraços e até o ET da São Paulo-PM em 10/7/2010 com a presença confirmada do Tomas Doran. Já temos a data, o local estamos providenciando, aguarde !<br><br>Solli M. Honório<br><br><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa<br>