>From: Harwood <Harwood@scotoma.org>
>To: reader-list@mail.sarai.net
>X-Mailer: Mailsmith 1.5.4 (Blindsider)
>Subject: [Reader-list] war.pl
>Sender: reader-list-admin@mail.sarai.net
>X-BeenThere: reader-list@mail.sarai.net
>X-Mailman-Version: 2.0.11
>List-Help: <mailto:reader-list-request@mail.sarai.net?subject=help>
>List-Post: <mailto:reader-list@mail.sarai.net>
>List-Subscribe: <http://mail.sarai.net/cgi-bin/mailman/listinfo/reader-list>,
><mailto:reader-list-request@mail.sarai.net?subject=subscribe>
>List-Id: A list on Media and the City,
>Information Politics and Contemporary Culture <reader-list.mail.sarai.net>
>List-Unsubscribe:
<http://mail.sarai.net/cgi-bin/mailman/listinfo/reader-list>,
><mailto:reader-list-request@mail.sarai.net?subject=unsubscribe>
>List-Archive: <http://mail.sarai.net/pipermail/reader-list/>
>Date: Mon, 17 Mar 2003 23:15:08 +0000
>
>A little something I came across recently
>It's a quine - a self replicating programme
>
>war.pl
>
>#########################################
>#! /usr/bin/perl
>$s='$c = chr(39);$t = q^#! /usr/bin/perl
>$s=^.$c.$s.$c.q^;eval $s;^."
";print $t
>### execute-me ###
># XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX #
># XX XX XX XXXXX XXXXX XXXX #
># XX XX XX XXXX XX XXXX XXXX XXX #
># XX XX XX XXX XXXX XXX XXXX XXX #
># XX XX XX XXX XXXX XXX XXXX XXX #
># XX XX XX XX XX XXX #
># XX XX XX XX XXXXXX XX XXXX XXX #
># XX XX XXXXXX XX XXXXX XX #
># XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX #
>### code of war ###
>';eval $s;
>#########################################
># cut out the code above - save it as -
># war.pl and run it.
>#########################################

># The earth is a inch deep in frost. #
># Hard; breaking ground to bury the dead#
># The north is silent - Shadowed - #
># waiting. #
># #
># The sun eclipsed - #
># by eagle wings and lion heart. #
># No one can plow or sow, type or code. #
># Spring buds and blossoms retard. #
># #
># The sands of arabia grown. #
># The reign of cruelty is begun. #
># Disguised in charity & pity & peace. #
># Pity excusing poverty. #
># Charity excusing wealth. #
># #
># Peace an armistice of fear #
># Reproducing the code for war. #
># #
># w.blake #
>#########################################
>#########################################

>#! /usr/bin/perl
>$s='$c = chr(39);$t = q^#! /usr/bin/perl
>$s=^.$c.$s.$c.q^;eval $s;^."
";print $t
>#### execute-me ####
># #
># +–^———-,—–,—-,——^-, #
># | ||||||||| `—-: | O #
># `+———————^———| #
># `\_,———,—–,———–~ #
># / XXXXXX / | / #
># / XXXXXX / ` / #
># / XXXXXX /`—–~ #
># / XXXXXX / #
># / XXXXXX / #
># (________( #
># `——~ #
>### ####
>';eval $s;
>#########################################
># cut out the code above - save it as -
># war.pl and run it.
>#########################################


. . …. …..

www.cddc.vt.edu/host/netwurker/
http://www.hotkey.net.au/~netwurker/txts

…. . <left_field.ism. >