📄 ch27_02.htm
字号:
<html><head><title>Perl Poetry (Programming Perl)</title><!-- STYLESHEET --><link rel="stylesheet" type="text/css" href="../style/style1.css"><!-- METADATA --><!--Dublin Core Metadata--><meta name="DC.Creator" content=""><meta name="DC.Date" content=""><meta name="DC.Format" content="text/xml" scheme="MIME"><meta name="DC.Generator" content="XSLT stylesheet, xt by James Clark"><meta name="DC.Identifier" content=""><meta name="DC.Language" content="en-US"><meta name="DC.Publisher" content="O'Reilly & Associates, Inc."><meta name="DC.Source" content="" scheme="ISBN"><meta name="DC.Subject.Keyword" content=""><meta name="DC.Title" content="Perl Poetry"><meta name="DC.Type" content="Text.Monograph"></head><body><!-- START OF BODY --><!-- TOP BANNER --><img src="gifs/smbanner.gif" usemap="#banner-map" border="0" alt="Book Home"><map name="banner-map"><AREA SHAPE="RECT" COORDS="0,0,466,71" HREF="index.htm" ALT="Programming Perl"><AREA SHAPE="RECT" COORDS="467,0,514,18" HREF="jobjects/fsearch.htm" ALT="Search this book"></map><!-- TOP NAV BAR --><div class="navbar"><table width="515" border="0"><tr><td align="left" valign="top" width="172"><a href="ch27_01.htm"><img src="../gifs/txtpreva.gif" alt="Previous" border="0"></a></td><td align="center" valign="top" width="171"><a href="ch27_01.htm">Chapter 27: Perl Culture</a></td><td align="right" valign="top" width="172"><a href="part5.htm"><img src="../gifs/txtnexta.gif" alt="Next" border="0"></a></td></tr></table></div><hr width="515" align="left"><!-- SECTION BODY --><h2 class="sect1">27.2. Perl Poetry</h2><a name="INDEX-4385"></a><p>The forgery in the attendant sidebar appeared on Usenet on April Fool'sDay, 1990. It is presented here without comment, merely to show howdisgusting the metaphors of a typical programming language really are.So much for anything resembling literary value. Larry is particularlyrelieved that "Black Perl", originally written for Perl 3, no longerparses under Perl 5.</p><p>Larry's, er, corpus has fortunately been overshadowed by that of thereigning Perl Poet, Sharon Hopkins. She has written quite a few Perlpoems, as well as a paper on Perl poetry that she presented at theUsenix Winter 1992 Technical Conference, entitled "Camels and Needles:Computer Poetry Meets the Perl Programming Language". (The paper isavailable as <em class="emphasis">misc/poetry.ps</em> on CPAN.) Besides being the mostprolific Perl poet, Sharon is also the most widely published, havinghad the following poem published in both the <em class="emphasis">Economist</em> and the<em class="emphasis">Guardian</em>:</p><p><blockquote><pre class="programlisting">#!/usr/bin/perlAPPEAL: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</pre></blockquote></p><div class="sidebar"><h4 class="objtitle">Perl Poetry</h4><blockquote><pre class="programlisting">Article 970 of comp.lang.perl:Path: jpl-devvax!pl-dexxav!lwallFrom: lwall@jpl-dexxav.JPL.NASA.GOV (Larry Wall)Newsgroups: news.groups,rec.arts.poems,comp.lang.perlSubject: CALL FOR DISCUSSION: comp.lang.perl.poemsMessage-ID: <0401@jpl-devvax.JPL.NASA.GOV>Date: 1 Apr 90 00:00:00 GMTReply-To: lwall@jpl-devvax.JPL.NSAS.GOV (Larry Wall)Organization: Jet Prepulsion Laboratory, Pasadena, CALines: 61It 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:</pre></blockquote><blockquote><pre class="programlisting">study, write, study,do review (each word) if time.close book. sleep? what's that?</pre></blockquote><blockquote><pre class="programlisting">And someone writing from Fort Lauderdale writes:</pre></blockquote><blockquote><pre class="programlisting">sleep, close together,sort of sin each spring & wait;50% die</pre></blockquote><blockquote><pre class="programlisting">A person who wishes to remain anonymous wrote the following example of "Black Perl". (The Pearl poet would have been shocked, no doubt.)</pre></blockquote><blockquote><pre class="programlisting">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</pre></blockquote><blockquote><pre class="programlisting">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:</pre></blockquote><blockquote><pre class="programlisting">print STDOUT qJust another Perl hacker,unless $spring</pre></blockquote><blockquote><pre class="programlisting">Larry Wall lwall@jpl-devvax.jpl.nasa.gov</pre></blockquote></div><!-- BOTTOM NAV BAR --><hr width="515" align="left"><div class="navbar"><table width="515" border="0"><tr><td align="left" valign="top" width="172"><a href="ch27_01.htm"><img src="../gifs/txtpreva.gif" alt="Previous" border="0"></a></td><td align="center" valign="top" width="171"><a href="index.htm"><img src="../gifs/txthome.gif" alt="Home" border="0"></a></td><td align="right" valign="top" width="172"><a href="part5.htm"><img src="../gifs/txtnexta.gif" alt="Next" border="0"></a></td></tr><tr><td align="left" valign="top" width="172">27.1. History Made Practical</td><td align="center" valign="top" width="171"><a href="index/index.htm"><img src="../gifs/index.gif" alt="Book Index" border="0"></a></td><td align="right" valign="top" width="172">Part 5. Reference Material</td></tr></table></div><hr width="515" align="left"><!-- LIBRARY NAV BAR --><img src="../gifs/smnavbar.gif" usemap="#library-map" border="0" alt="Library Navigation Links"><p><font size="-1"><a href="copyrght.htm">Copyright © 2001</a> O'Reilly & Associates. All rights reserved.</font></p><map name="library-map"> <area shape="rect" coords="2,-1,79,99" href="../index.htm"><area shape="rect" coords="84,1,157,108" href="../perlnut/index.htm"><area shape="rect" coords="162,2,248,125" href="../prog/index.htm"><area shape="rect" coords="253,2,326,130" href="../advprog/index.htm"><area shape="rect" coords="332,1,407,112" href="../cookbook/index.htm"><area shape="rect" coords="414,2,523,103" href="../sysadmin/index.htm"></map><!-- END OF BODY --></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -