From: Harwood <Harwood@scotoma.org>
To: reader-list@mail.sarai.net
Subject: [Reader-list] war.pl
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;^."\n";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;^."\n";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. 
#########################################