The Man who Japhed.

More of a curiosity than a real obfuscation. Employs the rarely used Slashdot variable in the last line. ;-)

    open  Japh,">Just_Another_Perl_Hacker.xls" and binmode Japh;
    $/    = pack "C2v2V2VdC2V2v", 9,8,8,5,16,0,10,0,4,2,32,0,24;
    $\    = pack "V",             +1 +1 +1 +1 +1 +1 +1 +1 +1 +1;
    print Japh $/.                   'Just Another Perl Hacker';
[download]

Update: This creates an Excel binary JAPH.

This will work on Unix but you will have to view the output in Excel. Gnumeric and OpenOffice can't read this because it exploits a backwards compatibilty loop-hole in Excel.

John.
--

Comment on The Man who Japhed. Download Code

Replies are listed 'Best First'.
Re: The Man who Japhed. by damian1301 (Curate) on Apr 13, 2001 at 04:01 UTC
You might ruffle some feathers because you're not closing that filehandle! When you open the door, close it! `close Japh;` :) :) Almost a Perl hacker. Dave AKA damian I encourage you to email me	[reply] [d/l]
Re: Re: The Man who Japhed. by jmcnamara (Monsignor) on Apr 13, 2001 at 11:32 UTC
You might ruffle some feathers because you're not closing that filehandle! When you open the door, close it! This is a JAPH after all and that door has a fairly strong spring behind it. ;-) If there are any feathers ruffled it should be by: `open foo and bar`. John. --	[reply]