Black Perl
Artikel ini sebatang kara, artinya tidak ada artikel lain yang memiliki pranala balik ke halaman ini. Bantulah menambah pranala ke artikel ini dari artikel yang berhubungan atau coba peralatan pencari pranala. Tag ini diberikan pada Januari 2023. |
Black Perl adalah salah satu Puisi Perl yang terkenal. Puisi ini di poskan di Usenet pada 1 April 1990. Puisi ini ditulis dalam Perl 3 dan tidak akan bisa diurai dengan Perl 5. Beberapa pembaruan independen telah diterbitkan untuk membuatnya bisa diurai di Perl 5.[1][2] Keseluruhan teks dari puisi ini direproduksikan di bawah ini.
Atribusi
[sunting | sunting sumber]Ketika di posting di newsgroup comp.lang.perl puisi ini di atribusikan oleh "seseorang yang tidak ingin dikenal namanya".[3] Banyak dugaan bahwa Sharon Rauenzahn (née Hopkins), pengarang puisi Perl lainya, yang telah menulis puisi ini, tetapi dia kemudian menyanggah klaim tersebut.[4]
Hasil dari eksekusi program
[sunting | sunting sumber]Ketika dieksekusi, Black Perl berada pada baris pertama, hingga mencapai fungsi exit (keluar). Baris-baris berikutnya diuraikan oleh interpreter Perl tapi tidak akan pernah benar-benar dieksekusi. Progam ini tidak menghasilkan output apapun.
"Black Perl"
[sunting | sunting sumber]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
Referensi
[sunting | sunting sumber]- ^ jonadab (2003-02-21). "Black Perl updated for Perl 5". Diakses tanggal 2007-09-15.
- ^ Ovid (2006-10-17). "Black Perl Revisited". Diakses tanggal 2007-09-15.
- ^ Wall, Larry; Christiansen, Tom; Orwant, Jon (July 2000). Programming Perl, Third Edition. O'Reilly. hlm. 649. ISBN 0-596-00027-8.
- ^ Sharon Hopkins (1993-04-16). "Re: Forking a bunch of processes...". comp.lang.perl. (Web link). Diambil pada December 5, 2014.