in reply to Why isn't this a quine?

Perl is not one of the worst languages for generating a quine:

seek DATA, 0, 0;
print <DATA>
__DATA__

[download]

Prints:

seek DATA, 0, 0;
print <DATA>
__DATA__

[download]
True laziness is hard work

Replies are listed 'Best First'.
Re^2: Why isn't this a quine?
by hossman (Prior) on Aug 02, 2009 at 23:48 UTC

    might as well make it psuedo-palandromy 

    hossman@coaster:~$ cat monk.pl 
seek DATA, 0, 0;
print <DATA>
__DATA__
print <DATA>
seek DATA, 0, 0;
hossman@coaster:~$ perl monk.pl 
seek DATA, 0, 0;
print <DATA>
__DATA__
print <DATA>
seek DATA, 0, 0;

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom