मैं पर्ल स्ट्रिंग में कोड जैसी चीज़ों से कैसे बच सकता हूं?

Question

$ i = 1; जबकि ($ i < 3) { प्रिंट < < "ईओटी"; डीफ़ पीएक्स $ i = नया ई (उपयोगकर्ता) अगर (! पीएक्स $ i.hasErrors()) { println "$ {px $ i.name}/$ {px $ i.empr.to} ठीक है" }

Can't call method "px" without a package or object reference at borrar.pl line 3.

मैं कैसे "पलायन" कर सकते हैं यदि:

EOT 

    $i++; 
} 

त्रुटि पैदा करता है?

धन्यवाद।

Answer 1

यह कहना मुश्किल है कि यह कोड क्या पूरा करना है, लेकिन शायद आप अंतिम आउटपुट में संरक्षित होने के लिए प्रिंटल कथन में बाहरी डॉलर के संकेत चाहते हैं?

println "\${px$i.name}/\${px$i.empr.to} OK" 

कि परिवर्तन के साथ, त्रुटि मुक्त उत्पादन मैं देख रहा हूँ है:

def px1 = new E(user) 
if (!px1.hasErrors()) { 
     println "${px1.name}/${px1.empr.to} OK" 
} 

def px2 = new E(user) 
if (!px2.hasErrors()) { 
     println "${px2.name}/${px2.empr.to} OK" 
} 

Answer 2

इस समस्या को ठीक करना चाहिए।

println "${"px$i.name"}/${"px$i.empr.to"} OK" 
println "px$i.name"/px$i.empr.to OK" 

Answer 3

जैसा कि आपने देखा है, $px स्ट्रिंग का हिस्सा मूल्यांकन किया जा रहा है। आप बस इसे से बचने के लिए की जरूरत है:

$i=1; 
while($i<3) { 
    print << "EOT"; 
    def px$i = new E(user) 
    if (!px$i.hasErrors()) { 
      println "\${px$i.name}/\${px$i.empr.to} OK" 
    } 

EOT 

    $i++; 
} 

के तहत "पार्स की Gory विवरण उद्धृत निर्माणों" perldoc perlop पर भागने स्ट्रिंग बारे में अधिक पढ़ें।

Answer 4

कमांड लाइन विकल्प -MO=Deparse आपको दिखाता है कि कैसे पर्ल ने इसे सरल बनाने के बाद अपना कोड व्याख्या किया है (उदा। हेडॉक्स को qq {} ब्लॉक में परिवर्तित करना)। जैसे

$ perl -MO=Deparse test.pl 
$i = 1; 
while ($i < 3) { 
    print qq[ def px$i = new E(user) \n if (!px$i.hasErrors()) {\n   println "${$i->px . 'name';}/${$i->px . 'empr' . 'to';} OK"\n }\n\n]; 
    ++$i; 
} 

प्रासंगिक हिस्सा है:

println "${$i->px . 'name';}/${$i->px . 'empr' . 'to';} 

पर्ल ${$i->px . 'name'} करने के लिए ${px$i.name} परिवर्तित कर दिया है!

पर्ल में, ${...} का मूल्यांकन जो कुछ भी ब्लॉक के अंदर है, और फिर भिन्नता यह इसे चालू करने के एक अदिश में वापस एक symbolic reference (अर्थात एक चर नाम) या एक अदिश संदर्भ के रूप में व्यवहार करते हैं, का मतलब है। तो पर्ल उन ब्लॉकों के अंदर जो कुछ भी है, उसे निष्पादित करने का प्रयास करता है, पर्ल कोड के रूप में उनकी सामग्री का इलाज करता है। ऐसा इसलिए है क्योंकि आपका हेरेडोक, "EOT" एक डबल-उद्धृत स्ट्रिंग की तरह है, और डॉलर के संकेतों को इंटरपोल करता है।

समाधान है: अपने डॉलर के संकेतों से बचें ($ ->\$) या हेड्रॉक्स की बजाय सिंगल कोट्स और कॉन्सटेनेशन का उपयोग करें।

Answer 5

my $format = << 'EOT'; 
def px%d = new E(user) 
    if (!px%d.hasErrors()) { 
      println "${px%d.name}/${px%d.empr.to} OK" 
    } 
EOT 

for my $i (1 .. 3) { 
    printf $format, ($i) x 4; 
}