perl self generating program

[Yahav Bar yosef]

Anyone has something shorter than this ?

****************************************

#!/usr/bin/perl
open(F,$0);print<F>


****************************************

Yahav bar yosef

 

[A. Sinan Unur]

(e-mail address removed) (Yahav Bar yosef) wrote in

Anyone has something shorter than this ?
....
#!/usr/bin/perl
open(F,$0);print<F>

Bleh!

http://libarynth.f0.am/cgi-bin/twiki/view/Libarynth/SelfGOL

Sinan.

 

[Tad McClellan]

Anyone has something shorter than this ?

****************************************

#!/usr/bin/perl
open(F,$0);print<F>

Sure, an empty file is a shorter "quine" than that one is.

 

[Uri Guttman]

TM> Sure, an empty file is a shorter "quine" than that one is.

and that isn't an 'official' quine as it cheats and accesses its own
source. there is a site (was that posted already in this thread?) with
short quines in many languages.

uri

 

[Lukas Mai]

Yahav Bar yosef schrob:

Anyone has something shorter than this ?

#!/usr/bin/perl
open(F,$0);print<F>

open 0;print<0>

HTH, Lukas

 

[Yahav Bar yosef]

Sure, an empty file is a shorter "quine" than that one is.

Hi Tad,
what excactly do you mean by "empty file" ?

 

[Sam Holden]

Hi Tad,
what excactly do you mean by "empty file" ?

A file with 0 bytes in it. What else could it mean?

You can create one by typing at a shell:

quine.pl

or

touch quine.pl

or

perl -e"open F, '>quine.pl'"

 

[Tad McClellan]

what excactly do you mean by "empty file" ?

A file with zero bytes in it.

 

[Laura]

How is "empty file" confusing you?

How about a non-existent file that was never created and then deleted 10
times in a row?

 

[Anno Siegel]

How about a non-existent file that was never created and then deleted 10
times in a row?

An empty file can't be mistaken for that.

Anno