RE: [FWP] print thyself [golf]

["Rubinow, Larry" <Larry.Rubinow@westgroup.com>]

Clifford Hammerschmidt wrote:

> 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?

$ARGV[0]=$0;print while(<>);

Or did I not understand the question?

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