यह सरल पर्ल पुश/पॉप प्रोग्राम क्यों काम नहीं कर रहा है?

Question

मैं लामा (Learning Perl) पुस्तक पढ़ रहा हूं, और अभ्यास पर काम कर रहा हूं। और इस अभ्यास के लिए:

एक ऐसा प्रोग्राम लिखें जो अलग-अलग लाइनों पर स्ट्रिंग्स की सूची को अंत तक इनपुट तक पढ़ता है और सूची को रिवर्स ऑर्डर में प्रिंट करता है। [। । ।]

ठीक है, मैं पहले से ही बाहर एक सरल तरीका (मुझे याद है आप सरणियों पर reverse इस्तेमाल कर सकते हैं ... पर्ल तो है ... भयानक अब तक) लगा, लेकिन क्यों यह एक नहीं है मैं सोच रहा हूँ काम कर रहे।

#!/usr/bin/perl 

use 5.010; 

chomp(@strings = <STDIN>); 

foreach (@strings){ 
    push @revstrings, $_; 
} 

while($i++ <= scalar @revstrings){ 
    say pop @revstrings; 
} 

यह इस प्रकार है:

$ ./first
एक
दो
तीन
[^ डी]
तीन
दो
$ अगर मैं सिर्फ < जबकि पाश में <= बदलने

उत्पादन में ही है।

Answer 1

आप आधी दूरी तक कभी नहीं मिलेगा ... कि पिछले यात्रा के माध्यम से हर बार, आप चाहते हैं:

• $i++ मतलब यह है कि $i एक के बाद में वृद्धि होगी;
• pop @revstrings का अर्थ यह होगा कि scalar @revstrings एक से कम हो जाएगा।

वे बीच में मिलेंगे, जब $i++ आधा मूल @revstrings लंबाई से अधिक है।

वास्तव में, $i++, अनावश्यक है scalar @revstrings के बाद से शून्य हो जाएगा जब सरणी रिक्त है, तो आप सिर्फ जरूरत है:

while(scalar @revstrings){ 
    say pop @revstrings; 
} 

Answer 2

संपादित: "। क्योंकि आपके पाश हालत गलत है" लघु जवाब है अधिक verbose "scalar @revstrings प्रत्येक पुनरावृत्ति का मूल्यांकन किया जाता है"।

while (<STDIN>) { 
    push @lines, $_ 
} 

while(@lines){ 
    print pop @lines; 
} 

कम

@lines = <STDIN>; 

while(@lines){ 
    print pop @lines; 
} 

कम

print reverse <>; 

टाइपिंग

@lines = <STDIN>; 
print reverse @lines; 

कम टाइपिंग लेकिन अब तक का सबसे अच्छा समाधान टाइपिंग

01 है

exec("tac");