Re: [FWP] my first japh :)

[Jeff Pinyan <jeffp@crusoe.net>]

On Dec 6, Piers Cawley said:

>> $;=26;$,=84;$"=$,;$_='--i$(f/s;({)}".)${.((+).$1'.
>> ')3$/==/o$;;2r$$d=$"-(=;$4)+1$+%,;$ni;trp(r $hc;'.
>> ')=e9-};v#laxnSqYj5{{}uw})j{|n)n~)TtqlZi&';s/(.)(.
>> )/$2$1/xg;s/(.{2})(.)(.{3})/$3$1$2/g;eval;print$/;
>
>It prints "Just another Perl hacker,".
>Canonical form is "Just another Perl hacker."

When Randal began using simple JAPHs, his were merely:

  print "Just Another Perl Hacker,";

I believe an ending comma is perfectly fine.

As for the code itself... I like.  I've not seen this type of obfuscation
(to my knowledge).  Hmm, I might as well toss a JAPH up here.

M^q@@;BEGIN{close"stderr"}print+H|R&k,G^w|E,Q&x|c,,,,
M&~i|t,,,q^&q|^^q&l],&^q|jm>|,N|d|A&c,v&q~|~,c^H^C,w&
M|a,qq<\x11A"\x17\x1b\x09Rh\x0d\x0c\x18\x11x>^<<,,,,,
carrier lost

,,;!EOF


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe