RE: [FWP] print thyself [golf]

[Alistair.McGlinchy@marks-and-spencer.com]

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

An OS dependant solution:
print `type $0`

A non-OS depent solution:
open I,$0;print<I>

Or did I miss something here?

Alistair

__________________________________________________________________________________________

Registered Office:
Marks and Spencer plc
Michael House, Baker Street,
London, W1A 1DN
Registered No. 214436 in England and Wales.

Telephone  (020) 7935 4422
Facsimile  (020) 7487 2670

www.marks-and-spencer.com

This e-mail is Confidential. If you received it by mistake, please let us know and then
delete it from your system; you should not copy, disclose, or distribute its contents to
anyone nor act in reliance on this e-mail, as this is prohibited and may be unlawful.
___________________________________________________________________________________________

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