From fabiano em cascavel.pm.org  Mon Dec  9 11:32:06 2002
From: fabiano em cascavel.pm.org (Fabiano)
Date: Mon Aug  2 21:26:32 2004
Subject: [Cascavel-pm] Curiosidade
Message-ID: <20021209173206.M24503@cascavel.pm.org>

   Ola' pessoal, como muitos dizem "eta coisa cabuloza" hehe...

   Exemplo de como transformar um codigo perl em "nada" e como
executar este "nada", por Samy Kamkar.

Encodes perl code (from file: code) and outputs 'nothing':
perl -ne 'for(split//){print"\t"x(ord()/50)." "x(ord()%50)."\n"}' code

Decodes 'nothing' (from file: new) and evaluates it:
perl -e 'open_;$f.=chr s/ //g+s/\t//g*50while<>;eval$f' new


Example:

bash# cat code 
print "yo\n";
bash# perl -ne 'for(split//){print"\t"x(ord()/50)." "x(ord()%50)."\n"}' code > new
bash# cat new
                            
                              
                     
                          
                                
                                
                                  
                                     
                           
                                                  
                          
                                  
                 
bash# perl -e 'open_;$f.=chr s/ //g+s/\t//g*50while<>;eval$f' new
yo
bash# 


[]s

--Fabiano Righetti <fabiano@cascavel.pm.org>


From fabiano em cascavel.pm.org  Tue Dec 10 14:52:29 2002
From: fabiano em cascavel.pm.org (Fabiano)
Date: Mon Aug  2 21:26:32 2004
Subject: [Cascavel-pm] Fun
Message-ID: <20021210205229.M3210@cascavel.pm.org>

http://cascavel.pm.org/arquivos/outros/exemplos/mapa.perl

[]s

--Fabiano Righetti <fabiano@cascavel.pm.org>



From fabiano em cascavel.pm.org  Thu Dec 12 20:14:25 2002
From: fabiano em cascavel.pm.org (Fabiano)
Date: Mon Aug  2 21:26:32 2004
Subject: [Cascavel-pm] Perl 6
Message-ID: <20021213021425.M87206@cascavel.pm.org>

   Apenas alguns links sobre a proxima versao...
 http://dev.perl.org/perl6/
 http://www.parrotcode.org/
 http://astray.com/perl6_now/
 http://cog.cognitivity.com/perl6/
 http://archive.develooper.com/perl6-internals@perl.org/
 http://archive.develooper.com/perl6-language@perl.org/

[]s

--Fabiano Righetti <fabiano@cascavel.pm.org>