in reply to Re: World's most boring Perl quine
in thread World's worst Perl quine

That's shortened to: 
seek DATA,0,0;print<DATA>__END__

[download]
But I also like: 
open 0;print<0>

[download]
which works for insanely bizarre reasons. Whoo.

-- Randal L. Schwartz, Perl hacker

Replies are listed 'Best First'.
Re: Re: Re: World's most boring Perl quine
by blakem (Monsignor) on Oct 19, 2001 at 02:15 UTC
    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]

      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
[reply]

In Section Obfuscated Code