World's most boring Perl quine

[cLive ;-)]

save as "self".

open(SELF,'self'); print while(<SELF>);

cLive ;-)

[scain]

I know writing quines isn't a serious subject (at least not to me), but is it fair practice to count on the name of the file to make the quine work? It seems like using metadata like that should be considered a cheat.

Scott

[tye]

No, not at all. Save the following script: print $0 to a file named 'print $0'.

BTW, that's part of why "worst" is in the title.

        - tye (Sarcasm? What sarcasm?)

[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

[strfry()]

i had thought that quines had to print their code out without reading themselves in?

strfry()