bashコマンドで文字列をPerlでエコーする方法は？

Question

これは私が試したものです：

my $s = "s" x 1000; 
my $r = `echo $s |more`; 

しかし、それは動作しません、私のプログラムが直接出て...

Answer 1

$rを印刷しないため、この例では機能しません。出力は変数$rに取り込まれます。 system()を代わりに使用すると、出力がSTDOUTに出力されているのを確認できますが、期待どおりの出力を使用することはできません。

ちょうど行います

print $r; 

更新： "エコー" は、すでにあなたに改行を与えるので、私は、printにsayを変更しました。

コメントで述べたように、シェルのメタ文字をエスケープするには、あなたがquotemeta.

を使用することができますまた、変数にシェルからの出力をキャプチャする場合| moreは効果がありませんことを認識する必要があります。このプロセスは単純に：echo | more | $rで、moreをスキップすることもできます。

Answer 2

がsystem()コマンドを使用してみてください：

my $s = "s" x 1000; 
my $r = system("echo $s |more"); 

はすべてあなたが表示されます's'になり、$rにはコマンドの結果（この場合は0）が表示されます。