Black Perl - Black Perl

Nesmí být zaměňována s Černá perla.

„Black Perl“ je kódová báseň psáno pomocí Perl programovací jazyk. Bylo zveřejněno anonymně na Usenet 1. dubna 1990,[1] a je populární mezi programátory v Perlu[Citace je zapotřebí ] jako kus Poezie Perl. Napsaná v Perlu 3, báseň může být popraven jako program.

Uvedení zdroje

Při zveřejnění v diskusní skupině comp.lang.perl byla báseň přičítána „osobě, která si přeje zůstat v anonymitě“.[1] Sharon Rauenzahn (rozená Hopkins), dalšího perlského básníka, bylo podezření, že je autorem, ale od té doby toto tvrzení popřel.[2]

Výsledek provedení programu

Po spuštění Black Perl opustí linku jedna, po dosažení funkce výstup. Zbývající řádky jsou analyzovány interpretem Perlu, ale nikdy nebyly skutečně provedeny. Program neprodukuje žádný výstup.

Ačkoli to nebude analyzovat pod Perl 5, bylo publikováno několik nezávislých aktualizací Black Perlu, aby bylo možné je analyzovat v Perlu 5.[3][4]

„Black Perl“

PŘEDEM: zavřít dveře, každý okno & výstup; Počkejte dokud čas.    otevřeno kniha kouzel, studie, číst (skenovat, vybrat, sdělit nás);psát si to, tisk the hex zatímco každý hodinky,    zvrátit své délka, psát si znovu;    zabít pavouci, pop jim, kotleta, rozdělit, zabít jim.        odpojit zbraně, posun, Počkejte & poslouchat (Naslouchání, Počkejte),třídit the stádo (pak, varovat the "kozy" & zabít the "ovce");    zabít jim, skládka výčitky, posun morálky,    hodnoty stranou, každý jeden;        zemřít ovce! zemřít na zvrátit the Systém        vy akceptovat (odmítnout, úcta);další krok,    zabít the další oběť, každý oběť,    Počkejte, předělat rituál dokud „všichni duchové jsou potěšeni“;    dělat to ("jak říkají").dělat to(*každý***musí***účastnit se***v***zakázáno**s*E*X*).vrátit se poslední oběť; balík tělo;    výstup krypta (čas, krát & "půl času") & zavřít to,    vybrat (rychle) & varovat vaše další oběť;DALŠÍ SLOVA: sdělit nikdo.    Počkejte, Počkejte dokud čas;    Počkejte dokud další rok, další desetiletí;        spát, spát, zemřít vy sám,        zemřít na poslední

Viz také

Reference

  1. ^ A b Zeď, Larry; Christiansen, Tom; Orwant, Jon (červenec 2000). Programování Perl, třetí vydání. O'Reilly. str. 649. ISBN  0-596-00027-8.
  2. ^ Sharon Hopkins (1993-04-16). „Re: Rozdvojování řady procesů ...“ Diskusní skupina: comp.lang.perl. Usenet:  [email protected]. Citováno 5. prosince 2014.
  3. ^ jonadab (21.02.2003). „Black Perl updated for Perl 5“. Citováno 2007-09-15.
  4. ^ Ovid (2006-10-17). „Black Perl Revisited“. Citováno 2007-09-15.