ट्रिकी पर्ल क्वीन

लगभग। लेन: मैं आज ट्विटर पर पहली नज़र में, बहुत मज़ेदार, धागे से मिला। और फिर उन्होंने करीब से देखा और महसूस किया कि वह न केवल मजाकिया थे, बल्कि मनोरंजक भी थे। और जब से ऐसा हुआ है कि आज शुक्रवार है, मैंने फैसला किया कि यह मेरे साथियों के साथ निष्कर्ष साझा करने लायक था :)



निम्नलिखित प्रोग्राम को /tmp/quine.pl में सहेजें

Illegal division by zero at /tmp/quine.pl line 1. 

इसे कमांड के साथ चलाएं

 perl /tmp/quine.pl 

और वह अपने कोड का उत्पादन करेगी।

कई प्रोग्रामिंग भाषाओं में रचना करने के लिए "क्वेक-ट्रिक्स" काफी सरल है, जहां स्रोत में एक वाक्यविन्यास त्रुटि एक पार्सर को एक त्रुटि उत्पन्न करने के लिए उकसाती है जो कार्यक्रम के स्रोत कोड के साथ मेल खाती है। मैंने इनमें से कई ट्रिक्स ट्विटर पर पोस्ट किए हैं , जिनमें निम्न शामिल हैं:

  File "quine.py", line 1 File "quine.py", line 1 ^ IndentationError: unexpected indent 

लेकिन इस लेख की शुरुआत में मोती जौ एक पूरी तरह से अलग तरह की चाल है - कार्यक्रम सही ढंग से समझता है । और यह लंबे समय तक काम नहीं करता है, जब तक कि यह शून्य से विभाजन की त्रुटि पर ठोकर नहीं खाता। यह नामकरण फ़ाइल करने के लिए बहुत संवेदनशील है - उदाहरण के लिए, / .quine.pl के माध्यम से चलने से काम नहीं चलेगा।

तो यह त्रुटि संदेश वास्तव में पूरा कार्यक्रम है?

यह कार्यक्रम मोती-बार डू-व्हाट-आई-मीन-पार्सर का बहुत उपयोग करता है।

प्रतीक / आवेदन के संदर्भ पर बहुत निर्भर है और इसे एक विभाजन प्रतीक के रूप में, या एक नियमित अभिव्यक्ति की शुरुआत के रूप में माना जा सकता है। और इस कार्यक्रम के कोड में भी छोटे बदलाव नियमितता को पार्स करने में त्रुटि का कारण बनते हैं, और कोड निष्पादन के लिए नहीं। इस स्थिति में, दोनों / वर्ण ऑपरेटर के संदर्भ में दिखाई देते हैं।

इस कार्यक्रम के अन्य गैर-डिक्शनरी भाग 1. , जिनकी व्याख्या केवल संख्या और के रूप में की जाती है . जो एक संचालक संचालक है।

फिर शब्दों का क्या मतलब है?

पर्ल में शब्द रूटीन, विधियों, पैकेजों या कक्षाओं के नाम हो सकते हैं। या (गैर-सख्त मोड में) एक विभाजक के बिना लाइनें, या शायद कुछ और भी जो मैं भूल गया था!

पर्ल एक असामान्य विधि कॉल सिंटैक्स का उपयोग करता है जिसे " इनडायरेक्ट ऑब्जेक्ट सिंटैक्स " कहा जाता है, जो इस तरह दिखता है:


सबसे अधिक बार आप देख सकते हैं कि कैसे

 print $filehandle "message"; my $instance = new Class(args); 

हालांकि पर्ल के लिए, निम्नलिखित सिंटैक्स बेहतर है:

 $filehandle->print("message"); my $instance = Class->new(args); 

पेर्लोब्ज प्रलेखन कहता है:

पर्ल इस कोड को पार्स करने के लिए अनुमानों का उपयोग करता है, जो यह जानता है कि किस पैकेज के नाम के आधार पर, मौजूदा पैकेज में सबरूटीन्स मौजूद हैं, इससे पहले कौन-कौन से शब्दों का सामना करना पड़ा है और अन्य इनपुट डेटा का विश्लेषण करना है। कहने की जरूरत नहीं है कि, आंकड़े बहुत अप्रत्याशित परिणाम उत्पन्न कर सकते हैं!

वह इस कोड को कैसे पार्स करता है?
दाईं ओर से शुरू

 pl line 1. 

विधि कॉल के रूप में पार्स किया गया

 line->pl(1.) 

जहाँ लाइन पैकेज (क्लास) का नाम है, और pl विधि है।

बीच में, "at", "tmp" और "quine" को सरल शब्दों के रूप में देखा जाता है, अर्थात। लाइन। अभिव्यक्ति इस प्रकार है:

 (("at" / "tmp") / "quine") . line->pl(1.) 

बाईं ओर दो तह परोक्ष विधि कॉल हैं,

 division->Illegal(zero->by( ... )) 

पहले निष्पादित आंतरिक अभिव्यक्ति है:

 "at" / "tmp" 

और यह तुरंत शून्य अपवाद द्वारा विभाजन का कारण बनता है।