Làm cách nào để xử lý các phím mũi tên trong tập lệnh Perl trong Cygwin?

Question

Tôi đang chạy tập lệnh Perl dưới Cygwin, có đầu vào từ <STDIN> và xử lý các yêu cầu liên tục.

#!/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: 

Bây giờ, tôi muốn các mũi tên lên tại dấu nhắc hiện tại: "Nhập đầu vào:" để có những đóng góp trước đó tức là "Input2", "Input1"

Nó hoạt động như mong đợi khi chạy dưới cửa sổ enivronment (cmd.exe)
Nhưng vấn đề dưới Cygwin là mũi tên lên nghĩa đen có con trỏ 1 hàng lên tức là nó cần đến dòng "Đã nhận đầu vào: input2"

Hãy chia sẻ suy nghĩ của bạn về điều này.

Answer 1

Nhìn vào thuật ngữ :: Mô đun Readline. Điều này sẽ tiếp nhận đầu vào cho chương trình của bạn và xử lý lịch sử, đó là những gì tôi nghĩ bạn đang nói đến.

Đây sẽ là một bản dịch trực tiếp của chương trình của bạn để sử dụng Term :: ReadLine:

 
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

Có sự khác biệt lớn trong việc xử lý lịch sử dòng lệnh giữa bảng điều khiển Windows và thiết bị đầu cuối Unix. Trên Windows, nó được thực hiện bởi giao diện điều khiển, trong khi trên Unix, các ứng dụng chịu trách nhiệm về nó. Tôi không biết gì về Perl, nhưng bạn sẽ cần phải sử dụng một cái gì đó giống như thư viện readline. Điều này có vẻ hữu ích: http://perldoc.perl.org/functions/readline.html