Re: [FWP] print thyself [golf]

["Tony Payne" <gssintl@flashcom.net>]

This is probably considered cheating, but:

#!/usr/bin/perl -l0
open(O,$0);print<O>

looks pretty short to me :)

++t
----- Original Message -----
From: Clifford Hammerschmidt <cliff@marketingtips.com>
To: <fwp@technofile.org>
Sent: Friday, April 28, 2000 10:04 AM
Subject: [FWP] print thyself [golf]


> Hi all,
>
> We had a little competition at my work to come up with the shortest
> (non-empty) perl script that could print itself. The winner (Jeff
Anderson)
> came up with:
>
> $_=q(print "\$_=q($_);eval");eval
>
> Can anyone come up with a shorter one?
>
>
> ==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
> ==== Send email to <fwp-request@technofile.org> with message _body_
> ====   unsubscribe
>


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