复制文件时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可以完成这项工作。

Term::ProgressBar

Answer 2

如果您不介意大量输出 - 每个文件复制一行文本 - 您可以使用

启用模块的调试模式

$cp->{_debug} = 1

在调用copy方法之前。