Hi!
During YAPC::Europe and all the great Perl 6 talks there, I started
thinking about doing a Perl 6 JAPH / Obfuscation.
So I downloaded parrot (twice, once from CPAN, which is broken, and
then from CVS, which worked..), installed it and came up with this rather
simple JAPH:
@p =('j','a','e','r','a');
@e =('u','n','r','l','c');
@r =('s','o',' ','6','k');
@l =('t','t','p',' ','e');
@6 =(' ','h','e','h','r');
print
@p ^_
@e ^_
@r ^_
@l ^_
@6
In accordance to Schwern's "How use strict got me a perl5porter", this
seems like "How obfuscation got me on perl6-internals" ...
--
#!/usr/bin/perl http://domm.zsi.at
for(ref(bless[],just'another'perl'hacker)){s-:+-$"-g&&print$_.$/}
