Quine generator

Not exactly on obfuscation, but I didn't know where else to put it... Warning: neither __END__ nor @data can be used anywhere in the programs in question, lest it will fail.

#!/usr/bin/perl
use strict;
use warnings;

die("File does not exist.\n") unless -e $ARGV[0];

open(QUINE, "+<", shift);
my @quine = <QUINE>;

push @quine,
  'my @data = <DATA>;'."\n",
  'print @data, @data'."\n",
  "__END__\n";
push @quine, @quine;

seek(QUINE, 0, 0);
print QUINE @quine;
close(QUINE);
my @data = <DATA>;
print @data, @data
__END__
#!/usr/bin/perl
use strict;
use warnings;

die("File does not exist.\n") unless -e $ARGV[0];
open(QUINE, "+<", shift);
my @quine = <QUINE>;

push @quine, 
  'my @data = <DATA>;'."\n",
  'print @data, @data'."\n",
  "__END__\n";
push @quine, @quine;

seek(QUINE, 0, 0);
print QUINE @quine;
close(QUINE);
my @data = <DATA>;
print @data, @data
__END__
[download]

Comment on Quine generator Download Code

Replies are listed 'Best First'.
Re: Quine generator by shmem (Chancellor) on Jul 16, 2007 at 12:08 UTC
This one from Dave Mitchell is particularly nice: Punctuation free quine `s zzs vvxv and s ZVZchr 122Zie and s ZVZchr 122Zie and s ZVZchr 122Zie and s SxSlcfirstSe and s YZZxZYvvxvYi and print z and s ZVZchr 122Zie and s ZVZchr 122Zie and s ZVZchr 122Zie and s SxSlcfirstSe and s YZZxZYvvxvYi and print` [download] --shmem _($_=" "x(1<<5)."?\n".q·/)Oo. G°\ / /\_¯/(q / ---------------------------- \__(m.====·.(_("always off the crowd"))."· ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}	[reply] [d/l]
Re: Quine generator by locked_user mtve (Deacon) on Jul 16, 2007 at 08:14 UTC
classical one was: `open 0;print<0>`
Re^2: Quine generator by ambrus (Abbot) on Jul 16, 2007 at 08:30 UTC
Classical ones are on the Quine page (which is apparently not maintained anymore). The shortest non-empty non-cheating one I know is (ends with two newlines) `print<< x2,v10 print<< x2,v10` [download] Another that uses perl's various quoting operators to avoid having to escape stuff dynamically is (no newline) `$a=q(;print"\$a=q($a)$a");print"\$a=q($a)$a"` [download] Update: see Short quines.	[reply] [d/l] [select]
Re^2: Quine generator by Anonymous Monk on Jul 16, 2007 at 19:45 UTC
That's CHEATING!!!!	[reply]
Re: Quine generator by Zaxo (Archbishop) on Jul 17, 2007 at 03:17 UTC
I once twisted the rules to produce a quine generator which would work on programs that print to STDOUT. The twist was that the "own source print" happened on STDERR. That was at Quine code with quinify. It came out of an attempt to quine some of Erudil's famous obfus. After Compline, Zaxo	[reply]