刀刀,是不是这个???
发信人: Nullgate (空门大师~Perl传教士), 信区: Perl
标 题: Perl诗歌
发信站: BBS 水木清华站 (Fri Apr 28 15:18:40 2000)
[由O'Reilly的Programming Perl 8.6翻译 ]
[允许任意非商业转载、修改，无需注明作者、译者，版权属O'Reilly]
#下文系1990年愚人节的伪造品，并非Larry Wall撰写。
#bLACK pERL是为Perl 3写的，不能在Perl5下面解释，Larry Wall很开心
------------------------------------------------------------------------------
计算机／语言／Perl 的第970篇文章
路径: jpl-devvax!pl-dexxav!lwall
从: lwall@jpl-dexxav.JPL.NASA.GOV (Larry Wall)
新闻组：新闻／讨论组，休闲／艺术／诗歌，计算机／语言／Perl
主题：要求开设讨论组：计算机／语言／Perl／诗歌
消息ID: <0401@jpl-devvax.JPL.NASA.GOV>
时间: 1 Apr 90 00:00:00 GMT（愚人节）
回复: lwall@jpl-devvax.JPL.NSAS.GOV (Larry Wall)
单位: 喷气推力实验室, Pasadena, 加拿大
行数: 61
我注意到我们急切地需要一个地方让人们同时表现他们的情感和技术本性。不少人
寄给我一些不知道该放到什么新闻组的东东。也许是因为我同时把他们贴到(休闲／艺术
／诗歌)和(计算机／语言／Perl)，但是人们似乎总用Perl写诗歌，不断地问我他们应该
把它放到什么地方。下面是一个例子，来自一个毕业生（在学期最后一周）：
study, write, study,
do review (each word) if time.
close book. sleep? what's that?
有个来自劳德代尔要塞的人写道：
sleep, close together,
sort of sin each spring & wait;
50% die
有个匿名者写出了“Black Perl”（毫无疑问，诗人们肯定会被它所震撼）：
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
我试了一把，它的确被解释器解释了。但它似乎什么也不能做。我想我很开心，真
的——因此我建议开设(计算机／语言／Perl／诗歌)来放置这些东东，以免麻烦(休闲／
艺术／诗歌)和(计算机／语言／Perl)。或者我们应该开设(休闲／艺术／诗歌／Perl)，
因为上面这些什么也不能做。然后我们还是可以开设(计算机／语言／Perl／诗歌)，用
于容纳可以完成某些工作的诗歌，比如我这段代码：
print STDOUT q
Just another Perl hacker,
unless $spring
Larry Wall lwall@jpl-devvax.jpl.nasa.gov
-----------------------------------------------------------------------------
Larry的诗集（权且这么称呼吧）的名声幸运地被著名的Perl诗人Sharon Hopkins遮
蔽了。她写过相当一些Perl诗歌，甚至在1992年的Usenix Winter技术会议上展示了一篇
叫做“骆驼和针线：当计算机诗人遇到Perl语言”的论文(你可以在CPAN的misc/poetry
.ps找到它)。除了是最多产的Perl诗人外，Sharon还是下面这首诗的作者，这首诗是发
行量最多的Perl诗歌，它曾在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能做什么？ 你应该问Perl不能做什么，Perl 能做的事太多了！
Perl不能做什么? 挺难回答的，至少Perl不能端茶送饭。
*(@$@$%$$^%$&%&! Perl能懂这个！你是不是学过？
Perl资源： http://166.111.160.5/nullgate/perl/
26#CPAN : ftp://166.111.160.5/pub4/nullgate/CPAN/
