黑色Perl

跳转到导航跳转到搜索＆＃34;黑色perl＆＃34;是使用Perl编程语言编写的代码诗。它在1990年4月1日匿名发布到Usenet，[1]，并在Perl程序员中受欢迎，作为一篇Perl诗歌。写在Perl 3中，诗可以作为程序执行。

当发布到Comp.Lang.Perl新闻组时，这首诗归功于＆＃34;一个希望保持匿名的人和＃34; [1] Sharon Rauenzahn（NéeHopkins）是另一个Perl诗人，已被怀疑是作者，但自否认索赔。 [2]

在达到函数退出时，在执行时，黑色Perl在一行上退出。剩余的线条由Perl解释器解析，但从未实际执行。该程序不会产生输出。

虽然它不会在Perl 5下解析，但是已经发布了对Black Perl的多个独立更新，以使其在Perl 5中解释。 [3] [4]

事先：关闭门，每个窗口＆amp;出口 ;等到时间。打开法术书，学习，阅读（扫描，选择，告诉我们）;写它，打印十六进制，同时每次手表，反转其长度，再次写入;杀死蜘蛛，弹出它们，剁，分裂，杀了他们。取消武器，转移，等待＆amp;听（倾听，等待），排序羊群（然后，警告＆＃34;山羊＆＃34;＆amp;杀死＆＃34;羊＆＃34;）;杀死他们，倾倒qualps，换档道德，留在一边，每一个;死羊！死于扭转你接受的系统（拒绝，尊重）;下一步，杀死下一个牺牲，每牺牲，等待，重做仪式直到＆＃34;所有的精神都很高兴＆＃34; ;做（＆＃34;他们说＆＃34;）。这样做（*每个人***必须***参加*** ***禁止** s * e * x *）。返回最后的受害者;包装体;退出Crypt（时间，时代＆amp;＆＃34;半个时间＆＃34;）＆amp;关闭它，选择（快速）＆amp;警告你的下一个受害者;以后：告诉没有人。等等，等到时间;等到明年，未来十年;睡觉，睡觉，死去，终于死了

^ a b墙，拉里; Christiansen，汤姆;奥弗兰，乔恩（2000年7月）。编程Perl，第三版。 O＆＃39;赖利。 p。 649. ISBN 0-596-00027-8。