मैं साइगविन के तहत एक पर्ल स्क्रिप्ट में तीर कुंजी कैसे संभाल सकता हूं?

Question

मैं सिग्विन के तहत पर्ल स्क्रिप्ट चला रहा हूं जो <STDIN> से इनपुट लेता है और लगातार अनुरोधों को संसाधित करता है।

#!/usr/bin/perl 
print "Enter Input:"; 
while(<STDIN>) { 
    print "Recieved Input: $_"; 
    print "Enter Input:"; 
} 



    $perl testPerl.pl   
    Enter input:input1 
    Recieved input:input1 
    Enter input:inpt2 
    Recieved input:input2 
    Enter input: 

अब, मैं वर्तमान प्रॉम्प्ट पर ऊपर तीर चाहते हैं: "इनपुट दर्ज करें:" लेने के लिए पिछले आदानों ie "इनपुट 2", "इनपुट 1 की"

यह अपेक्षा के तहत चल बर्ताव करता है खिड़कियों enivronment (cmd.exe)
लेकिन cygwin के तहत समस्या यह है कि ऊपर तीर सचमुच कर्सर 1 पंक्ति तक ले जाता है यानी यह लाइन के लिए ले जाता है "प्राप्त इनपुट: इनपुट 2" इस पर अपने विचार साझा करें

।

Answer 1

टर्म :: रीडलाइन मॉड्यूल देखें। यह आपके कार्यक्रम के लिए इनपुट लेगा, और इतिहास को संभालेगा, जो मुझे लगता है कि आप किस बारे में बात कर रहे हैं।

 
use Term::ReadLine; 
my $term = new Term::ReadLine 'Simple Perl calc'; 
my $prompt = "Enter Input: "; 
while (defined ($_ = $term->readline($prompt))) { 
    print "Recieved Input:$_\n"; 
    $term->addhistory($_) if /\S/; 
} 

Answer 2

विंडोज कंसोल और यूनिक्स टर्मिनलों के बीच कमांड लाइन इतिहास के संचालन में एक बड़ा अंतर है। विंडोज़ पर, यह कंसोल द्वारा किया जाता है, जबकि यूनिक्स पर, एप्लिकेशन इसके लिए ज़िम्मेदार होते हैं। मुझे पर्ल के बारे में कुछ भी पता नहीं है, लेकिन आपको रीडलाइन लाइब्रेरी की तरह कुछ उपयोग करने की आवश्यकता होगी। यह सहायक लगता है: http://perldoc.perl.org/functions/readline.html