$ perl -MO=Deparse -e 'while() { }'
while (1) {
();
}
-e syntax OK
ऐसा लगता है कि while() {}
और while (1) {}
समकक्ष हैं। यह भी ध्यान रखें कि रिक्त स्थान * खाली ब्लॉक में डाले गए हैं।
पूर्व निर्धारित संकलक व्यवहार का एक और उदाहरण:
$ perl -MO=Deparse -e 'while (<>) { }'
while (defined($_ = <ARGV>)) {
();
}
-e syntax OK
मैं कहूँगा कि यह एक विशेष मामला रिपोर्टिंग न सिर्फ डॉक्स है।
* — सटीक होने के लिए, stub
ऑपोड डाला गया है। यह कुछ भी नहीं करता है, लेकिन enterloop
ऑपोड के लिए गेटो लक्ष्य प्रदान करता है। इसे ध्यान में रखने का कोई वास्तविक कारण नहीं है। डिप्रिस खाली stub
ओप खाली माता-पिता का उपयोग करके इंगित करता है, क्योंकि माता-पिता कोड उत्पन्न नहीं करते हैं।
मैं इरादे पर जोर देने के लिए '1 (1)' पसंद करता हूं। – JRFerguson