<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:verdana, helvetica, sans-serif;font-size:10pt"><div style="font-family: verdana,helvetica,sans-serif; font-size: 10pt;">Pelo que pude perceber, são cinco linhas de código unidas. Dividindo não dá tanto trabalho pra entender.<br><br>1 s;(?:SEEKING)?;PERLqny~%|fsyx%~tz&;?$^X=~m.\w+$.:DEVELOPERS;<br>2 s"$&"Ktsf"i;<br>3 s^.^chr ord($&)-5^eg;<br>4 $\=$/;<br>5 print||" ;) ";<br><br>A primeira linha retorna em $_ a string "PERLqny~%|fsyx%~tz&". pode confundir porque o cara que fez usou ponto e vírgula ao invés da barra. (?:SEEKING)? pode enganar, mas retorna undef. o último parâmetro da substituição não me parece fazer nada de útil. Posso estar enganado.<br><br>A segunda linha pode ser ignorada, penso eu.<br><br>A terceira faz descer cada caracter 5 posições na tabela ascii. Já dá pra pegar a string que é impressa em $_.<br><br>A quarta linha
não faz nada de útil.<br><br>A quinta imprime. Por extenso, seria<br> print $_ or " ;) "; # detalhe da carinha feliz, que nunca é retornada<br><br>Será que há algo que eu esteja esquecendo?<br><br>Abraço!<br><br>Eduardo Veríssimo<br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Mensagem original ----<br>De: Solli Honorio <shonorio@gmail.com><br>Para: Cascavel Perl Mongers <cascavel-pm@pm.org>; saopaulo-pm@mail.pm.org<br>Enviadas: Segunda-feira, 1 de Janeiro de 2007 22:17:08<br>Assunto: [SP-pm] Teste para "Perl Job Developer"<br><br><div>Pessoal,</div>
<div> </div>
<div>No post "Perl Golf Ethics" <a rel="nofollow" target="_blank" href="http://www.perlmonks.com/?node_id=592386">http://www.perlmonks.com/?node_id=592386</a>, o cara comenta sobre um desafio de Perl Golf da empresa Fonality. Curioso entrei na parte de Carrers e fiquei curioso sobre o desafio proposto pela empresa para determinar o grau de conhecimento na linguagem.
</div>
<div> </div>
<div>Segundo eles, o "Junior Perl Developer" tem que compreender o segundo código "<font face="courier new,monospace">s|(\d)|length(9 x $1)|eg;</font>". Bom, este é fácil, só não sei para que serve, já que na minha leitura não funciona.
</div>
<div> </div>
<div>Já o "Senior Perl Developer" tem que explicar o código :</div>
<div><font face="courier new,monospace">s;(?:SEEKING)?;PERLqny~%|fsyx%~tz&;?$^X=~m.\w+$.<br>:DEVELOPERS;s"$&"Ktsf"i;s^.^chr ord($&)-5^eg;$\=$/;print||" ;) "</font></div>
<div>... e este eu compreendi nada.</div>
<div> </div>
<div>Será que algum santo poderia explicar o que significa isto ?</div>
<div> </div>
<div>Abraços,</div>
<div> </div>
<div>Solli M. Honório</div>
<div> </div>
<div>_______________________________________________<br>SaoPaulo-pm mailing list<br>SaoPaulo-pm@pm.org<br><a target="_blank" href="http://mail.pm.org/mailman/listinfo/saopaulo-pm">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a></div></div><br></div></div><br>__________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/ </body></html>