- Where Developers Learn, Share, & Build Careers
हाय मैं एक नौसिखिया 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
Post a Comment