Re: World's most boring Perl quine

[VSarkiss]

I agree that depending on the name of the file is a cheat, so here's how another way to do it. (TIMTOWTC?) It's the same thing, but doesn't depend on the file name.

seek DATA, 0, 0; print while <DATA>;
__DATA__

[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