确定上传状态

Question

我使用perl Net :: FTP :: Recursive模块将文件夹从本地上传到FTP.我在下面写了示例代码.在该代码中,我需要知道上传过程的状态,例如是否已上传.

use strict;
use Net::FTP:recursive;

my $ftp_con= Net::FTP::Recursive->new('host.com',Debug=>0);
$ftp_con->login('username','password');
$ftp_con->rput('d:\my_test','\root\my_test');
$ftp_con->quit;

在上面的代码中,我无法找到上传的状态.任何人都可以建议我获取文件夹的上传状态,无论文件夹是否已上传.

谢谢...

Answer 1

子类Net::FTP::Recursive要覆盖_rput.在foreach块的末尾添加一个回调挂钩,并将当前文件$file和文件列表@files作为参数传入.

在代码的主要部分,每次调用回调时计数,并计算计数器的进度和元素的数量@files.