home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / ch7 / poetry < prev    next >
Encoding:
Text File  |  1992-10-18  |  2.9 KB  |  80 lines
  1. Article 970 of comp.lang.perl:
  2. Path: jpl-devvax!jpl-dexxav!lwall
  3. From: lwall@jpl-dexxav.JPL.NASA.GOV (Larry Wall)
  4. Newsgroups: news.groups,rec.arts.poems,comp.lang.perl
  5. Subject: CALL FOR DISCUSSION: comp.lang.perl.poems
  6. Message-ID: <0401@jpl-devvax.JPL.NASA.GOV>
  7. Date: 1 Apr 90 00:00:00 GMT
  8. Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
  9. Organization: Jet Prepulsion Laboratory, Pasadena, CA
  10. Lines: 61
  11.  
  12. It has come to my attention that there is a crying need for a
  13. place for people to express both their emotional and technical
  14. natures simultaneously.  Several people have sent me some items
  15. which don't fit into any newsgroup.  Perhaps it's because I
  16. recently posted to both comp.lang.perl and to rec.arts.poems,
  17. but people seem to be writing poems in Perl, and they're
  18. asking me where they should post them.  Here is a sampling:
  19.  
  20. From a graduate student (in finals week), the following haiku:
  21.  
  22.     study, write, study,
  23.     do review (each word) if time.
  24.     close book.  sleep?  what's that?
  25.  
  26. And someone writing from Fort Lauderdale writes:
  27.  
  28.     sleep, close together,
  29.     sort of sin each spring & wait;
  30.     50% die
  31.  
  32. A person who wishes to remain anonymous wrote the following
  33. example of "Black Perl".  (The Pearl poet would have been
  34. shocked, no doubt.)
  35.  
  36. BEFOREHAND: close door, each window & exit;  wait until time.
  37.     open spellbook, study, read (scan, select, tell us);
  38. write it, print the hex while each watches,
  39.     reverse its length, write again;
  40.     kill spiders, pop them, chop, split, kill them.
  41.        unlink arms, shift, wait & listen (listening, wait),
  42. sort the flock (then, warn the "goats" & kill the "sheep");
  43.     kill them, dump qualms, shift moralities,
  44.     values aside, each one;
  45.         die sheep! die to reverse the system
  46.         you accept (reject, respect);
  47. next step,
  48.     kill the next sacrifice, each sacrifice,
  49.     wait, redo ritual until "all the spirits are pleased";
  50.     do it ("as they say").
  51. do it(*everyone***must***participate***in***forbidden**s*e*x*).
  52. return last victim; package body;
  53.     exit crypt (time, times & "half a time") & close it,
  54.     select (quickly) & warn your next victim;
  55. AFTERWORDS: tell nobody.
  56.     wait, wait until time;
  57.     wait until next year, next decade;
  58.         sleep, sleep, die yourself,
  59.         die at last
  60.  
  61. I tried that, and it actually parses in Perl.  It doesn't
  62. appear to do anything useful, however.  I think I'm glad,
  63. actually...
  64.  
  65. I hereby propose the creation of comp.lang.perl.poems as a
  66. place for such items, so we don't clutter the perl or poems
  67. newsgroups with things that may be of interest to neither.
  68. Or, alternately, we should create rec.arts.poems.perl for
  69. items such as those above which merely parse, and don't do
  70. anything useful.  (There is precedent in rec.arts.poems,
  71. after all.)  Then also create comp.lang.perl.poems for poems
  72. that actually do something, such as this haiku of my own:
  73.  
  74. print STDOUT q
  75. Just another Perl hacker,
  76. unless $spring
  77.  
  78. Larry Wall
  79. lwall@jpl-devvax.jpl.nasa.gov
  80.