Re: World's most boring Perl quine

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]

Comment on Re: World's most boring Perl quine Download Code

Replies are listed 'Best First'.
Re: Re: World's most boring Perl quine by merlyn (Sage) on Oct 19, 2001 at 01:13 UTC
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	[reply] [d/l] [select]
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]
Re: Re: Re: Re: World's most boring Perl quine by myocom (Deacon) on Oct 19, 2001 at 03:28 UTC
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]