[Cascavel-pm] Brincadeira / desafio aos Monges

[Eden Cardim]

>my $foo = "use php";
>{
>(my $foo = $foo) =~ s/php/Perl/ig;
>print $foo;
>}
>print ", dont $foo";
>
>é valido?

bem, é sujeito a discussão. A idéia do cara do post orginal era a de
não ter que declarar nenhuma variável explicitamente e correr o risco
de haver colisão de nomes num programa muito grande, além de ser
deselegante utilizar variáveis temporárias, acho q essa solução seria
tolerável sim.

>essa solucao eh boa :)
>achei engraçada na verdade :P
>
>abraços,
>
>Gabriel Vieira
>
>my $foo = 'use php or die';
>print join 'Perl', split('php', $foo);
>
>Isso?

Boa solução, gostei também...

o que eu propus lá na Usenet foi:

my $foo = "use php";
for("$foo") {s/php/Perl/; print};