On Monday, March 17, 2003, at 06:11 PM, drieux wrote:
but if I do the sort of thing I would normally do
#!/usr/bin/perl -w
use strict;
our $s='$c = chr(39);
$t = q^#!/usr/bin/perl
$s=^.$c.$s.$c.q^;eval $s;^.\n;print $t
### execute-me
p0: thanks chris for more 'academic' views of the quine idea
{ I will confess as an approach it just seems silly }
p1: the q^...^ trick is not one I have used, it looks way
too much like bad ascii art... 8-)
p2: I likewise have not used the 'eval' in this context but
in the more traditional