in reply to World's worst Perl quine

save as "self". 
open(SELF,'self'); print while(<SELF>);

[download]
cLive ;-)

Replies are listed 'Best First'.
Re: World's most boring Perl quine
by VSarkiss (Monsignor) on Oct 18, 2001 at 22:59 UTC

    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__

    [download]

[reply]
[d/l]
[reply]
[d/l]
[select]
        Interesting.... Does that "translate" into: 
        open(FILE,$0);
print <FILE>;

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

        -Blake

[reply]
[d/l]
[select]
Re: World's most boring Perl quine
by scain (Curate) on Oct 18, 2001 at 22:38 UTC
    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

[reply]

      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?)
[reply]
[d/l]
Re: World's most boring Perl quine
by strfry() (Monk) on Oct 19, 2001 at 23:13 UTC
    i had thought that quines had to print their code out without reading themselves in?

    strfry()
[reply]

In Section Obfuscated Code