[Cascavel-pm] Decifrem pra mim, please

[Gabriel Vieira]

ele "retira" os 2 primeiros caracteress de $_ e os coloca ao fim do $_ por
meio do $1.
E imprime o terceiro caractere.

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.

Veja os caracteres de 3 em 3 que você entenderá. :D

Abraços,

Gabriel Vieira

On 9/6/06, Nelson Ferraz <nferraz em gmail.com> wrote:
>
> Iberê Oliveira Kuntz se Souza wrote:
> > Estava eu navegando pelo google(como de costume), quando encontrei essa
> > expressao:
> >
> > $_="krJhruaesrltre c a cnP,ohet";$_.=$1,print$2while s/(..)(.)//;
>
> Você pode começar melhorando o espaçamento do código:
>
>         $_ = "krJhruaesrltre c a cnP,ohet";
>
>         $_ .= $1, print $2 while s/(..)(.)//;
>
> Depois você pode "desinverter" o while:
>
>         $_ = "krJhruaesrltre c a cnP,ohet";
>
>         while ( s/(..)(.)// ) {
>           $_ .= $1;
>           print $2;
>         }
>
> Entendeu? :D
>
> --
> Nelson Corrêa de Toledo Ferraz
>
> Segula Technologies (www.segula.fr)
> Free Software Foundation Associate Member #3203
> Sociedade Perl do Brasil (www.perl.org.br)
> Rede Livre de Compartilhamento de Cultura Digital
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060906/8cbaf078/attachment.html