[SP-pm] Substituicoes balanceadas

[Gabriel Vieira]

Ele deu socos no teclado e saiu isso hehe

tb nao consegui rodar.. talvez pelo 'phynton' ali.. mas tb nao tive 
paciencia de analisar o codigo...

Abraços
----- Original Message ----- 
From: "Wendel Scardua" <wendelscardua em gmail.com>
To: <saopaulo-pm em mail.pm.org>
Sent: Wednesday, February 08, 2006 3:42 PM
Subject: Re: [SP-pm] Substituicoes balanceadas


Ué... eu rodei o script mas não aconteceu nada :-(
O q eu fiz de errado ?

obs: é que eu não tô com tempo (e talvez nem tenha capacidade
necessária) pra fazer um "parsing mental" desse script aí... 0 é um
handle válido !? estou vendo um open sem arquivo a ser aberto ?

obs2: eu chuto que seja um japh, pelo conteúdo do @#, mas nem
lembrava/sabia de um array @#...

On 2/8/06, Marco Lima <marco.lima em e-via.com.br> wrote:
> Qual eh a trapaça ? e esse naum seria o objetivo !!
>
> Ou seja ... o objetivo naum eh trapacear !!
>
> open s,">#\!/usr/bin/python";;$#=$/;seek s,"m/^j.a.p.h.!$/";:print
> s"#\!/usr/bin/perl",+0;;$_=(<0>)[-2];$/=q*(\w)*;
> @#=(36.32.32.44.101.114.99,107.104.97.32,114.108.80.101,32.101.114.116,104.110.111.97,32.115.116.74.117.32.32.36,);
> $_=join '',eval("$_");*#=*_;$#=~s*^\$(.+)\$$*$1*;print ~~ reverse join '
> ',map{s$\$/\$/$\$2\$1$g&&$#}split(' ',$#);
>
> *<=-))
>
> [  ]'s
>
> --
>
> Marco Lima
> J. A. P. H.
>
> marco.lima em e-via.com.br
> mago em rio.pm.org
> mago em cpan.org
>
> Sociedade Perl do Brasil   |   http://www.perl.org.br
> Perl Monks                 |   http://www.perlmonks.org
> Brasil Perl Mongers        |   http://brasil.pm.org
>
> Register Linux User #355235
> Slackware Linux, for the subgenius
>
> "Ninguém é tão grande que não possa aprender, e nem tão pequeno que
> não possa ensinar"
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>


--
[]s
Wendel
--
"Or think of Perl as a bigger hammer.  It lets you treat everything
like a nail,
and get away with it most of the time.  But sometimes not."
-- Larry Wall
_______________________________________________
SaoPaulo-pm mailing list
SaoPaulo-pm em pm.org
http://mail.pm.org/mailman/listinfo/saopaulo-pm