Re: print source golf

[Corion]

How about this?

#!perl

open 0;print for<0>;

This takes advantage of

• Single-argument open opens a filehandle *X using the value stored in $X as the filename. Since $0 contains the filename of our program, *0 will be opened as our filehandle.

• print for<0>; reads from filehandle *0 and prints the content.

[tobyink]

You don't really need the for.

#!perl
open+0;print<0>