simple perl addition program going wrong? -


हाय मैं एक नौसिखिया perl शिक्षार्थी हूँ यह साधारण perl प्रोग्राम

  $ inputline = & lt; STDIN & gt ;; प्रिंट "पहले इनपुट"; प्रिंट ($ इनपुटलाइन); $ Inputline = & LT; STDIN & gt ;; प्रिंट "दूसरा इनपुट"; प्रिंट ($ inputline); $ Sum = $ इनपुटलाइन + $ इनपुटलाइन; मुद्रित करें "राशि 1inInput और 2ndinput"; प्रिंट ($ राशि);   

आउटपुट

  perl count.pl 3 4 प्रथम इनपुट 3 दूसरा इनपुट 4 योग 1ininput और 2ininput: 8   

क्यों क्या आप आउटपुट 8 को 7 की बजाय?

क्योंकि आप $ inputline जोड़ते हैं जब यह 4 होता है तो स्वयं को।

यदि आप दो निविष्टियाँ जोड़ना चाहते हैं, तो आपको इसे दो चर के साथ करना होगा या चर परिवर्तन से पहले जोड़ना होगा। उदा।: <पूर्व> मेरे $ input1 = & lt; & gt ;; मेरा $ input2 = & lt; & gt ;; मेरी $ sum = $ input1 + $ input2; प्रिंट "योग: $ sum";

या

  मेरी $ इनपुट = & lt; & gt ;; मेरा $ योग = $ इनपुट; $ इनपुट = & lt; & gt ;; $ Sum + = $ इनपुट; प्रिंट "योग: $ sum";   

आप कुछ आसान कर सकते हैं, जैसे:

  perl -nlwe '$ sum + = $ _; प्रिंट "योग: $ sum"; '   

जो मूल रूप से इसके बराबर है:

  सख्त का उपयोग करें; चेतावनियों का उपयोग करें; # हमेशा मेरे $ योग का उपयोग करें; जबकि (& lt; & gt;) {# आपके इनपुट $ sum + = $ _; प्रिंट "योग: $ sum \ n"; }   

लूप (Ctrl-Z विंडो में) को तोड़ने के लिए Ctrl-C या Ctrl-D का उपयोग करें।

Comments

Popular posts from this blog

Python SQLAlchemy:AttributeError: Neither 'Column' object nor 'Comparator' object has an attribute 'schema' -

java - How not to audit a join table and related entities using Hibernate Envers? -

mongodb - CakePHP paginator ignoring order, but only for certain values -