[Cascavel-pm] Decifrem pra mim, please

[Eden Cardim]

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

Muito legal, a primeira vista parece que é simples, até chegar no
final da string e vc nao lembrar o q foi q ele colocou no final, na
primeira iteração... :D

Por falar em JAPH... Decifre esse aí:

<code>
#!/opt/perl/bin/perl   --    # No trailing newline after the last line!
BEGIN{$|=$SIG{__WARN__}=sub{$_=$_[0];y-_- -;print/(.)"$/;seek _,-open(_
,"+<$0"),2;truncate _,tell _;close _;exec$0}}//rekcaH_lreP_rehtona_tsuJ
</code>

Esse é o mais lindo JAPH que já vi...

Tem mais aqui: http://www.cpan.org/misc/japh

-- 
Eden Cardim
Instituto Baiano de Biotecnologia
Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
Laboratório de Bioinformática