Remote-Url: https://en.wikipedia.org/wiki/Black_Perl
Retrieved-at: 2021-12-19 20:59:28.872244+00:00

"Black Perl"is acode poemwritten using thePerlprogramming language. It was posted anonymously toUseneton April 1, 1990,[1]and is popular among Perl programmers[citation needed]as a piece ofPerl poetry. Written in Perl 3, the poem is able to beexecutedas a program.Attribution[edit]When posted to thecomp.lang.perlnewsgroup the poem was attributed to "a person who wishes to remain anonymous".[1]Sharon Rauenzahn (néeHopkins), another Perl poet, has been suspected to be the author but has since denied the claim.[2]Result of program execution[edit]When executed, Black Perl exits on line one, upon reaching the functionexit. The remaining lines are parsed by the Perl interpreter but never actually executed. The program produces no output.Though it will not parse underPerl 5, multiple independent updates to Black Perl to make it parsable in Perl 5 have been published.[3][4]"Black Perl"[edit]BEFOREHAND:closedoor,eachwindow&exit;waituntiltime.openspellbook,study,read(scan,select,tellus);writeit,printthehexwhileeachwatches,reverseitslength,writeagain;killspiders,popthem,chop,split,killthem.unlinkarms,shift,wait&listen(listening,wait),sorttheflock(then,warnthe"goats"&killthe"sheep");killthem,dumpqualms,shiftmoralities,valuesaside,eachone;diesheep!dietoreversethesystemyouaccept(reject,respect);nextstep,killthenextsacrifice,eachsacrifice,wait,redoritualuntil"all the spirits are pleased";doit("as they say").doit(*everyone***must***participate***in***forbidden**s*e*x*).returnlastvictim;packagebody;exitcrypt(time,times&"half a time")&closeit,select(quickly)&warnyournextvictim;AFTERWORDS:tellnobody.wait,waituntiltime;waituntilnextyear,nextdecade;sleep,sleep,dieyourself,dieatlastSee also[edit]References[edit]