Black Perl


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

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

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"

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

  1. ^ jonadab (2003-02-21). "Black Perl updated for Perl 5". Diakses tanggal 2007-09-15.
  2. ^ Ovid (2006-10-17). "Black Perl Revisited". Diakses tanggal 2007-09-15.
  3. ^ Wall, Larry; Christiansen, Tom; Orwant, Jon (July 2000). Programming Perl, Third Edition. O'Reilly. hlm. 649. ISBN 0-596-00027-8.
  4. ^ Sharon Hopkins (1993-04-16). "Re: Forking a bunch of processes...". comp.lang.perl. (Web link). Diambil pada December 5, 2014.


Ikon rintisan

Artikel bertopik sastra ini adalah sebuah rintisan. Anda dapat membantu Wikipedia dengan mengembangkannya.

Content Disclaimer

Informasi ini disarikan dari Wikipedia dan disajikan kembali untuk tujuan edukasi. Konten tersedia di bawah lisensi CC BY-SA 3.0. Kami tidak bertanggung jawab atas ketidakakuratan data yang bersumber dari kontribusi publik tersebut.

  1. The information displayed on this website is sourced in part or in whole from Wikipedia and has been adapted for the purpose of restating it. We strive to provide accurate and relevant information, however:
  2. There is no guarantee of absolute accuracy. Wikipedia is an open, collaborative project that can be edited by anyone, so information is subject to change.
  3. It is not intended to constitute professional advice. The content displayed is for informational and educational purposes only. For important decisions (e.g., medical, legal, or financial), please consult a professional.
  4. Content copyright. Wikipedia is licensed under the Creative Commons Attribution-ShareAlike License (CC BY-SA). This means that content may be reused with appropriate attribution and shared under a similar license.
  5. Responsible use. Any risk arising from the use of information from this website is entirely the responsibility of the user.
Kembali kehalaman sebelumnya