有没有办法在Perl脚本中使用移动函数来获取文件传输的进度？

Question

我是一名ETL开发人员,我处理大量需要从一种表单处理到另一种表单才能加载到表中的数据.因此,我使用的大多数脚本在某些时候都必须将文件从一个位置移动到另一个位置.我们是一家门店.我想知道在Perl中使用move函数时是否有办法看看移动需要多长时间.如果我需要通过系统调用windows命令给我这个选项,那么我也可以使用它.Perl或Windows命令行中是否有任何内容可以告诉我文件传输的进度？

谢谢!

Answer 1

您可以使用cpan中的Win32 :: FileOp包.

这是一个相关的摘录:

CopyConfirm

 CopyConfirm ($FileName => $FileOrDirectoryName [, ...])
 CopyConfirm (\@FileNames => $DirectoryName [, ...] )
 CopyConfirm (\@FileNames => \@FileOrDirectoryNames [, ...])

复制指定的文件.如果发生碰撞,则显示确认对话框.显示进度对话框.

如果成功则返回true.

MoveConfirm

移动指定的文件.参数为CopyConfirm

命令行替代方案是Term :: ProgressBar,它也更灵活,但设置起来有些困难.您必须执行以下操作:获取原始文件的大小,然后启动副本并轮询新文件的大小(从子进程)以更新进度条.