[Cascavel-pm] Decifrem pra mim, please

Nelson Ferraz nferraz em gmail.com
Quarta Setembro 6 10:25:57 PDT 2006


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


Mais detalhes sobre a lista de discussão Cascavel-pm