perl - ファイルコピー中の Perl グラフィック表示

Question

File::NCopyある場所から別の場所に再帰的に使用して、多数のファイルをコピーしています。printファイルのコピーのステータスをサポートするために、次のステートメントを使用しました。

my $cp = File::NCopy->new(recursive => 1);
$cp->copy("$source_dir/*", $target_dir) or die "Could not perform rcopy of $source_dir to $target_dir: $!";
print "Copying completed from $source_dir to $target_dir\n";

上記の行にグラフィックを挿入して、コピーされたファイルの量とコピーされていないファイルの量を伝える方法はありますか? または、少なくともプロセスが進行中であることを伝える動線はありますか?

Answer 1

私Term::ProgressBarは仕事をすることができると思います。

期間::プログレスバー

Answer 2

多くの出力 (コピーされたファイルごとに 1 行のテキスト) を気にしない場合は、次を使用してモジュールのデバッグ モードを有効にすることができます。

$cp->{_debug} = 1

メソッドを呼び出す前にcopy。