##### Richard wrote:
##### Anyone got examples of Perl programs that can output themselves?

#####  self-reproducing program
seek DATA, 0, 0;
print <DATA>;

__DATA__
http://www.acm.org/classics/sep95/

-Richard


###  This means that this script looks for the landmark __DATA__,
###  but as "seek" rewinds the data pointer, the script does not
###  start reading _after_ that landmark, but at the foremost
###  position of that landmark's land's letter sequence.
###  In this regard the script is as free as a mole or a gull to explore
###  its realm.  Nice.    =Detlef


Reply via email to