A Possible Module?

[Benjamin Goldberg]

Steffen Müller wrote:
[snip]

> *_=*DATA;seek+_,0,0;print<_>;
> __DATA__
> What's a quine?

That isn't a quine, since it reads it's own source in order to print
itself. If it were a Real quine, it wouldn't use the *DATA filehandle.

--
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "$@[$a%6
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}

[Steve Grazzini]

Benjamin Goldberg <ben.goldberg@hotpop.com> writes:

> Steffen Muller wrote:
> [snip]

>> *_=*DATA;seek+_,0,0;print<_>;
>> __DATA__
>> What's a quine?

>
> That isn't a quine, since it reads it's own source in order to print
> itself. If it were a Real quine, it wouldn't use the *DATA filehandle.

(*_,*_) = \(*ARGV,$${^W});
print <> if split

--
Steve

[Steve Grazzini]

Benjamin Goldberg <ben.goldberg@hotpop.com> wrote:

> Steve Grazzini wrote:

> > (*_,*_) = \(*ARGV,$${^W});
> > print <> if split

>
> Ehh? This doesn't print out anything. It just
> hangs, waiting for EOF.

% cat quine
(*_,*_) = \(*ARGV,$${^W});
print <> if split
% perl quine
(*_,*_) = \(*ARGV,$${^W});
print <> if split

It does need to be saved in a file -- and of course
$^W needs to be zero.

And yes, I know it's not really a quine. :-)

--
Steve