[SP-pm] Substituicoes balanceadas

Wendel Scardua wendelscardua em gmail.com
Quarta Fevereiro 8 11:33:50 PST 2006


Pra mim o "python" é só pra "disfarçar" (salvei o código em x.pl , e
rodei via "perl x.pl" )

[spoiler? sei lá]

Aquele "open s,etcetera..." na verdade está executando uma
substituição ( s,foo,bar, ) e o resultado da substituição (suponho q
seja 0, pois houve 0 substituições) é o 1º parâmetro do open . O
problema é que não vejo o segundo parâmetro... ou será que pode com 1
só ? vou ver a documentação... rs... :-)

[/spoiler? sei lá]

On 2/8/06, Gabriel Vieira <gabriel.vieira em gmail.com> wrote:
> 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
>
> _______________________________________________
> 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


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