2. Perl 诗歌

在助手框里的诗歌的仿制品是在1990年的四月一日愚人节张贴到 Usenet 上的。我们不加注释的把它放在这里，只是想表示典型的编程语言的隐喻真的是多么让人作呕。对所有有文学价值的东西大概都是这样的吧。Larry 在最初为 Perl 3 写的那些“Black Perl”到了 Perl 5 不能分析通过之后，真是感觉轻松许多。

不过，Larry 自己的文集很幸运地被 Perl 诗歌的王后，Sharon Hopkins 的光芒所掩盖。她写了相当多的 Perl 诗歌，以及一些她在 1992 年 Usenet 冬季技术大会上拿出来的关于 Perl 诗歌的文章，标题是“Camels and Needles: Computer Poetry Meets the Perl Programming Language”。（这篇文章可以在 CAPN 的 misc/poetry.ps 找到。）除了是最多产的 Perl 诗人之外，Sharon 还是下面这首诗歌的作者，这首诗是发表得最广泛的一首，并且曾经在 Economist 和 Guardian 杂志上刊登：

#!/usr/bin/perl
　　APPEAL:
　　listen (please, please);
　　open yourself, wide;
    　　join (you, me),
　　connect (us,together),
　　tell me.

do something if distressed;
    　　@dawn, dance;
    　　@evening, sing;
    　　read (books,$poems,stories) until peaceful;
    　　study if able;
    　　write me if-you-please;
　　sort your feelings, reset goals, seek (friends, family, anyone);
        　　do*not*die (like this)
        　　if sin abounds;

keys (hidden), open (locks, doors), tell secrets;
　　do not, I-beg-you, close them, yet.
                            　　accept (yourself, changes),
                            　　bind (grief, despair);

require truth, goodness if-you-will, each moment;

select (always), length(of-days)

# listen (a perl poem)
　　# Sharon Hopkins
　　# rev. June 19, 1995

Perl Poetry

Article 970 of comp.lang.perl:
　　Path: jpl-devvax!pl-dexxav!lwall
　　From: lwall@jpl-dexxav.JPL.NASA.GOV(Larry Wall)
　　Newsgroups: news.groups,rec.arts.poems,comp.lang.perl
　　Subject: CALL FOR DISCUSSION: comp.lang.perl.poems
　　Message-ID: <0401@jpl-devvax.JPL.NASA.GOV>
　　Date: 1 Apr 90 00:00:00 GMT
　　Reply-To: lwall@jpl-devvax.JPL.NSAS.GOV(Larry Wall)
　　Organization: Jet Prepulsion Laboratory, Pasadena, CA
　　Lines: 61

It has come to my attention that there is a crying need for a place for people to express both their emotional
　　and technical natures simultaneously. Several people have sent me some items which don't fit into any
　　newsgroup. Perhaps it's because I recently posted to both comp.lang.perl and to rec.arts.poems, but people
　　seem to be writing poems in Perl, and they're asking me where they should post them. Here is a sampling:

From a graduate student (in finals week), the following haiku:

study, write, study,
　　do review (each word) if time.
　　close book. sleep? what's that?

And someone writing from Fort Lauderdale writes:

sleep, close together,
　　sort of sin each spring & wait;
　　50% die

A person who wishes to remain anonymous wrote the following example of "Black Perl".  (The Pearl poet
　　would have been shocked, no doubt.)

BEFOREHAND: close door, each window & exit;  wait until time.
    　　open spellbook, study, read (scan, select, tell us);
　　write it, print the hex while each watches,
    　　reverse its length, write again;
    　　kill spiders, pop them, chop, split, kill them.
       　　unlink arms, shift, wait & listen (listening, wait),
　　sort the flock (then, warn the "goats" & kill the "sheep");
    　　kill them, dump qualms, shift moralities,
    　　values aside, each one;
        　　die sheep! die to reverse the system
        　　you accept (reject, respect);
　　next step,
    　　kill the next sacrifice, each sacrifice,
    　　wait, redo ritual until "all the spirits are pleased";
    　　do it ("as they say").
　　do it(*everyone***must***participate***in***forbidden**s*e*x*).
　　return last victim; package body;
    　　exit crypt (time, times & "half a time") & close it,
    　　select (quickly) & warn your next victim;
　　AFTERWORDS: tell nobody.
    　　wait, wait until time;
    　　wait until next year, next decade;
        　　sleep, sleep, die yourself,
        　　die at last

I tried that, and it actually parses in Perl.  It doesn't appear to do anything useful, however.  I think I'm glad,
　　actually... I hereby propose the creation of comp.lang.perl.poems as a place for such items, so we don't clutter
　　the perl or poems newsgroups with things that may be of interest to neither.  Or, alternately, we should
　　create rec.arts.poems.perl for items such as those above which merely parse, and don't do anything useful. 
　　(There is precedent in rec.arts.poems, after all.)  Then also create comp.lang.perl.poems for poems that
　　actually do something, such as this haiku of my own:

print STDOUT q
　　Just another Perl hacker,
　　unless $spring

Larry Wall        　　lwall@jpl-devvax.jpl.nasa.gov