ele "retira" os 2 primeiros caracteress de $_ e os coloca ao fim do $_ por meio do $1.<br>E imprime o terceiro caractere.<br><br>Isso faz com que o valor de $_ se altere continuamente, e a cada alteração o terceiro caractere é o necessário para a sequência da formação da frase.
<br><br>Veja os caracteres de 3 em 3 que você entenderá. :D<br><br>Abraços,<br><br>Gabriel Vieira<br><br><div><span class="gmail_quote">On 9/6/06, <b class="gmail_sendername">Nelson Ferraz</b> <<a href="mailto:nferraz@gmail.com">
nferraz@gmail.com</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Iberê Oliveira Kuntz se Souza wrote:<br>> Estava eu navegando pelo google(como de costume), quando encontrei essa
<br>> expressao:<br>><br>> $_="krJhruaesrltre c a cnP,ohet";$_.=$1,print$2while s/(..)(.)//;<br><br>Você pode começar melhorando o espaçamento do código:<br><br> $_ = "krJhruaesrltre c a cnP,ohet";
<br><br> $_ .= $1, print $2 while s/(..)(.)//;<br><br>Depois você pode "desinverter" o while:<br><br> $_ = "krJhruaesrltre c a cnP,ohet";<br><br> while ( s/(..)(.)// ) {<br> $_ .= $1;
<br> print $2;<br> }<br><br>Entendeu? :D<br><br>--<br>Nelson Corrêa de Toledo Ferraz<br><br>Segula Technologies (<a href="http://www.segula.fr">www.segula.fr</a>)<br>Free Software Foundation Associate Member #3203
<br>Sociedade Perl do Brasil (<a href="http://www.perl.org.br">www.perl.org.br</a>)<br>Rede Livre de Compartilhamento de Cultura Digital<br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">
Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br>