Re: Re: World's most boring Perl quine

[merlyn]

That's shortened to:

seek DATA,0,0;print<DATA>__END__

But I also like:

open 0;print<0>

which works for insanely bizarre reasons. Whoo.

-- Randal L. Schwartz, Perl hacker

[blakem]

Interesting.... Does that "translate" into:

open(FILE,$0);
print <FILE>;

i.e. the one argument open is using the filename in $0 to create the filehandle 0.

-Blake

[myocom]

In short, yes it does the same thing, but for interesting reasons. For a longer explanation, check japhy's Obfuscation review ('bout halfway down).

"One word of warning: if you meet a bunch of Perl programmers on the bus or something, don't look them in the eye. They've been known to try to convert the young into Perl monks." - Frank Willison