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

如果您不介意大量输出（每个文件复制一行文本），您可以使用以下命令启用模块的调试模式

$cp->{_debug} = 1

在调用copy方法之前。