方法：cat text | ./script.pl

Question

最近Term::Readlineを使い始めましたが、今はcat text | ./script.plが動作しない（出力なし）ことを実現しました。

script.plは（作業OK）の前にスニペット：

#!/usr/bin/perl 
use strict; 
use warnings; 

$| = 1; 
while (<>) { 
    print $_; 
} 

script.plは（のみ対話的に取り組んで）後スニペット：

#!/usr/bin/perl 
use strict; 
use warnings; 
use Term::ReadLine 

$| = 1; 
my $term = Term::ReadLine->new('name'); 
my $input; 
while (defined ($input = $term->readline(''))) { 
    print $input; 
} 

は、私は（この動作を維持するために何かできることはありますラインを印刷する）？

Answer 1

必要な入出力ファイルハンドルを使用するように設定する必要があります。ドキュメントはそれを綴りませんが、コンストラクタは文字列（名前として機能する）か、文字列と入力ファイルと出力ファイルハンドルのためのglob（両方が必要です）のいずれかをとります。

今

use warnings; 
use strict; 

use Term::ReadLine; 

my $term = Term::ReadLine->new('name', \*STDIN, \*STDOUT); 

while (my $line = $term->readline()) { 
    print $line, "\n"; 
} 

 
echo "hello\nthere" | script.pl 

scipt.pl < input.txtファイルinput.txtの行を出力しながら、helloとthereとの2行を印刷します。この後、通常のSTDINとSTDOUTは、将来のすべてのI/Oに対してモジュールの$termによって使用されます。このモジュールには、入出力ファイルハンドル（$term->OUTおよび$term->IN）を取得するメソッドがあり、I/Oが後で変更できるようになっています。

Term::ReaLine自体は詳細はありませんが、これはページに記載されている他のモジュールのフロントエンドです。彼らのページにははるかに多くの情報があります。また、私はこれの使用が他の場所、例えば良い古いCookbookでカバーされていると信じています。