Svart Perl
"Black Perl" är en koddikt skriven med programmeringsspråket Perl . Den postades anonymt på Usenet den 1 april 1990 och är populär bland Perl-programmerare [ citat behövs] som ett stycke Perl-poesi . Dikten är skriven i Perl 3 och kan köras som ett program.
Tillskrivning
När dikten postades i nyhetsgruppen comp.lang.perl tillskrevs "en person som vill vara anonym". Sharon Rauenzahn ( född Hopkins), en annan Perl-poet, har misstänkts vara författaren men har sedan dess förnekat påståendet.
Resultat av programexekvering
När den exekveras avslutas Black Perl på rad ett, när funktionen avslutas . De återstående raderna tolkas av Perl-tolken men exekveras aldrig. Programmet producerar ingen utdata.
Även om den inte kommer att tolka under Perl 5 , har flera oberoende uppdateringar av Black Perl för att göra den tolkbar i Perl 5 publicerats.
"Svart Perl"
FÖRE: stäng dörren , varje fönster & utgång ; vänta tills tid . öppna stavningsbok , studera , läsa ( skanna , välj , berätta för oss ); skriv det , skriv ut sexkanten medan var och en tittar , vänd på längden , skriv igen ; döda spindlar , slå dem , hugga , dela , döda dem . lossa armar , skift , vänta & lyssna ( lyssnar , vänta ), sortera flocken ( varna sedan " getterna " och döda "fåren " ) ; döda dem , dumpa betänkligheter , flytta moral , värderingar åt sidan , var och en ; dö får ! dö för att vända på systemet du accepterar ( förkasta , respektera ) ; nästa steg , döda nästa offer , varje offer , vänta , gör om ritualen tills "alla andar är nöjda " ; gör det ( "som de säger" ) . gör det ( * alla *** måste *** delta *** i *** förbjudna ** s * e * x * ) . återlämna det senaste offret ; paketets kropp ; avsluta krypten ( tid , tider & "halvtid" ) & stäng den , välj ( snabbt ) & varna ditt nästa offer ; EFTERORD: berätta för ingen . vänta , vänta tills tid ; vänta till nästa år , nästa decennium ; sova , sova , dö själv , dö äntligen _