perl - Perl: 出力を変数に取り込み、同時に標準出力に表示するにはどうすればよいですか?

Question

私は perl スクリプトの作業を開始し、バックアップを行うために外部 rsync アプリケーションを呼び出しています。rsync アクションの出力をキャプチャしたいので、次の形式を使用しています。

print "Starting backup. Please wait...\n";
my @output = `rsync -avut /home /media/drive/`;

この時点で、スクリプトは想定どおりに実行されていますが、rsync のアクションがアレイにキャプチャされており、進行状況を確認できません。上記のように出力をキャプチャするだけでなく、コンソールにも表示する方法はありますか?

score 0 · Accepted Answer

この関連する質問を見ることができます。受け入れられた答えは、を使用することを提案してCapture::Tinyいます。

score 0 · Accepted Answer

このような何かがうまくいくかもしれません

use strict;

my $fh;

open $fh, "find /|"; #don't forget to check it opens!!

while (<$fh>){
   chomp;
   print "here--$_\n";
}

3 に答える 3