ब्लैक पर्ल
"ब्लैक पर्ल" पर्ल प्रोग्रामिंग लैंग्वेज का उपयोग करके लिखी गई एक कोड पोयम है। इसे 1 अप्रैल 1990 को यूज़नेट पर गुमनाम रूप से पोस्ट किया गया था,[1] और यह पर्ल प्रोग्रामर्स के बीच पर्ल पोयम के एक भाग के रूप में लोकप्रिय है। पर्ल 3 में लिखी गई पोयम एक प्रोग्राम के रूप में एक्सीक्यूट (कंप्यूटिंग) करने में सक्षम है।
एट्रिब्यूशन
जब comp.lang.perl न्यूज़ग्रुप पर पोस्ट किया गया तो पोयम का श्रेय "एक ऐसे व्यक्ति को दिया गया जो गुमनाम रहना चाहता था"।[1] पर्ल के एक अन्य पोएट, शेरोन रौएनज़ाहन (नी हॉपकिंस) पर लेखक होने का संदेह किया गया है, लेकिन तब से उन्होंने इस दावे का खंडन किया है।[2]
प्रोग्राम एक्सीक्यूशन का परिणाम
एक्सीक्यूटेड होने पर, तथा फ़ंक्शन से निकास पर ब्लैक पर्ल, लाइन 1 पर उपस्थित होती है। शेष पंक्तियों को पर्ल इंटरप्रिटर्स द्वारा पार्स किया गया है लेकिन वास्तव में कभी इसका एक्सीक्यूशन नहीं किया गया था। प्रोग्राम कोई आउटपुट नहीं देता है।
चूंकि यह पर्ल 5 के अनुसार पार्स नहीं करेगा, पर्ल 5 में इसे पार्स करने योग्य बनाने के लिए ब्लैक पर्ल के कई इंडिपेंडेंट अपडेट पब्लिश किए गए हैं।[3][4]
ब्लैक पर्ल
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
यह भी देखें
संदर्भ
- ↑ 1.0 1.1 Wall, Larry; Christiansen, Tom; Orwant, Jon (July 2000). Programming Perl, Third Edition. O'Reilly. p. 649. ISBN 0-596-00027-8.
- ↑ Sharon Hopkins (1993-04-16). "Re: Forking a bunch of processes..." Newsgroup: comp.lang.perl. Usenet: 1993Apr16.233742.21214@cheshire.oxy.edu. Retrieved December 5, 2014.
- ↑ jonadab (2003-02-21). "Black Perl updated for Perl 5". Retrieved 2007-09-15.
- ↑ Ovid (2006-10-17). "ब्लैक पर्ल पर दोबारा गौर किया गया". Retrieved 2007-09-15.
