Download code

Jump to: navigation, search

Back to Quine_(Perl)

Download for Windows: single file, zip

Download for UNIX: single file, zip, tar.gz, tar.bz2

Quine1.pl

 1 $quine = <<'END';
 2 $quine = <<'END';
 3 %s
 4 %s
 5 ($quine2) = $quine =~ /(.*)\n$/s;
 6 printf $quine, $quine2, 'END';
 7 END
 8 ($quine2) = $quine =~ /(.*)\n$/s;
 9 printf $quine, $quine2, 'END';
10