[moon] home
IPv4

Erlkönig: perl-poems.shtml

parent
[parent webpage]

server
[webserver base]

search
[search erlkonig webpages]

trust
[import certificates]


homes
[talisman]
[zoion]
From: zelig@gnu.ai.mit.edu (Miria Brigid)
To: cutter@gnu.ai.mit.edu, hack@gnu.ai.mit.edu, jim@gnu.ai.mit.edu,
        mib@gnu.ai.mit.edu, noah@gnu.ai.mit.edu, randy@gnu.ai.mit.edu,
        roland@gnu.ai.mit.edu
Subject: ho
Date: Sat, 31 Aug 91 15:53:53 -0400


>From elbows-errors@mc.lcs.mit.edu Thu Aug 22 20:42:54 1991
Received: from geech.gnu.ai.mit.edu by albert.gnu.ai.mit.edu (5.65/4.0) with SMTP
	id ; Thu, 22 Aug 91 20:42:52 -0400
Received: from MC.LCS.MIT.EDU by geech.gnu.ai.mit.edu (5.65/4.0) with SMTP
	id ; Thu, 22 Aug 91 20:42:47 -0400
Received: from mc by mc.lcs.mit.edu id aj18894; 22 Aug 91 18:40 EDT
Received: from ATHENA.MIT.EDU by mc.lcs.mit.edu id aa18010; 22 Aug 91 15:00 EDT
Received: from INNSBRUCK.MIT.EDU by ATHENA.MIT.EDU with SMTP
	id AA11178; Thu, 22 Aug 91 15:00:41 EDT
Received: by innsbruck.MIT.EDU (5.61/4.7) id AA19758; Thu, 22 Aug 91 15:00:09 -0400
Message-Id: <9108221900.AA19758@innsbruck.MIT.EDU>
To: elbows@mc.lcs.mit.edu
Subject: poem
Date: Thu, 22 Aug 91 15:00:06 EDT
From: Samsonista 
Status: R


Well, as threatened, here's my latest perl poem, version 1.0 of
'elbows'.  Dedicated to, and slightly inspired by, you all, but ANY
RESEMBLANCE TO ACTUAL PERSONS AND EVENTS IS PURELY IMAGINARY.

As poetry: ignore the punctuation.

As perl: run it in /tmp/.  It _does_ do something, or attempt to;
namely, open a file and write to it.  It is otherwise harmless as far
as I know.  It works for me, your milage may vary.

My earlier poem is much better, in my opinion, so I'll post it later.
I'm afraid I've not been as Mused this week.

ilyn


#!/usr/local/bin/perl

<<;
done with my thesis

shift @gears;
study($no_more);
send(email, to, join(@the, @party, system));

open(with, ">a happy greeting");
time, to, join (@the, flock(with, $relaxed), values %and_have_fun);
connect(with_old, $friends);
rename($myself, $name = "ilyn");
$attend, local($parties);

pack(food, and, games);
wait; for (it) {;};

goto party;
open Door;
send(greetings, to, hosts, guests);
party:

tell stories;
listen(to_stories, at . length);
read(comics, $philosophy, $games);

seek(partners, $for, $fun);
select(with), caution;
each %seeks, %joy;

$consume, pop @and_food;
print $name .$on .$glass;

$lasers, $shine; while ($batteries) { last;};  

time; $to, sleep 
sin, perhaps;

$rest,
$till .$next .$weekend;


>From elbows-errors@mc.lcs.mit.edu Thu Aug 22 20:47:02 1991
Received: from geech.gnu.ai.mit.edu by albert.gnu.ai.mit.edu (5.65/4.0) with SMTP
	id ; Thu, 22 Aug 91 20:46:59 -0400
Received: from MC.LCS.MIT.EDU by geech.gnu.ai.mit.edu (5.65/4.0) with SMTP
	id ; Thu, 22 Aug 91 20:46:53 -0400
Received: from mc by mc.lcs.mit.edu id ap18894; 22 Aug 91 18:41 EDT
Received: from ATHENA.MIT.EDU by mc.lcs.mit.edu id aa18680; 22 Aug 91 17:52 EDT
Received: from INNSBRUCK.MIT.EDU by ATHENA.MIT.EDU with SMTP
	id AA18196; Thu, 22 Aug 91 17:53:15 EDT
Received: by innsbruck.MIT.EDU (5.61/4.7) id AA20816; Thu, 22 Aug 91 17:52:41 -0400
Message-Id: <9108222152.AA20816@innsbruck.MIT.EDU>
To: elbows@mc.lcs.mit.edu
Return-Receipt-To: ccount@mit.edu
Subject: Ode to My Thesis, a Perl Poem
Date: Thu, 22 Aug 91 17:52:38 EDT
From: Samsonista 
Status: R


Again as threatened, here's my first perl poem, which I put into the
final copies of my thesis on the back of the 'Acknowledgments' page.
I don't think I can ever really top it.  In some ways it was the
crowning achievement for a certain part of my personality.

It is as far as I know the first poem which a computer can appreciate
as well as a human (better, many would say).

The following is from the posting I made to comp.lang.perl, including
the explanation I made at the time.

Enjoy,
ilyn



Well, I was showing my thesis to Marc Horowitz, pointing out the
acknowledgment for Larry and perl, the figures which were generated in
PostScript by perl scripts from the output data from C programs, the
tables generated in LaTeX direct from sets of data files by perl
scripts, and so on.  He made the comment 'What, no perl scripts in the
document?'.  Indeed, there were none.

Now, I was looking for a way of unwinding and spending some time
relatively uselessly, having completed the document (Ph.D in Materials
Science, looking for a job preferably in the Northeast, please email
if you know of job opportunities :) and waiting for my final defense.
Someone suggested I write some poetry.

This is the result.  It actually produces output (under 4.000 and
4.003).  It's going in the final printing of my thesis (the page after
the acknowledgments which would otherwise be intentionally left blank).

I count it as a four-for.  (1) english language poem, (2) functional
perl program which produces (3) output in an (4) obfuscated manner.


Enjoy,
Craig

#!/usr/local/bin/perl

# Ode to My Thesis, a Perl Poem

<


  



		
encrypt lang [de jp fr] diff backlinks (sec) validate printable
Cogito ergo spud (I think therefore I yam).
[ Your browser's CSS support is broken. Upgrade! ]
alexsiodhe, christopher north-keys, christopher alex north-keys