[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] Re: TPJ Contest Winner



Chris Nandor writes 27-SEP-1996:

|The big winner of the 0th Obfuscated Perl Contest in Vol. 1, Issue 2 of The
|Perl Journal was Gisle Aas, who wrote a script that would print out the
|words "The Perl Journal".
|
|        http://orwant.www.media.mit.edu/tpj/contest-obfusc-entries
|
|Here is his code:
|
|*_=\$#;$/=q#(.)#;$#=10;$^X=~s|.*/||;$\=chr;$#=gmtime$#;substr($#,$^F#^F
|*$^F**$^F-1)=al;s$\$/( )\$/\$/$e\$2\u\$^X\$2\$3o\$1r$    && print time
|
|
|Anyway, when run, you indeed get "The Perl Journal" -- if you run it on a
|UNIX.  If you run it on a Mac, you get "Fre MacPerl Joirnal
|".  Hmmm ...

And if you run it on a VMS Alpha you get:

 The Dra0:[perl.perl5_003_04]perl.exe;1 Journal

Hmm...

By the way, has anyone out there seen an implementation of "BinHex" written
in Macperl?

Peter Prymmer