2012-02-28 84 views
2

我使用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; 

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

谢谢...

回答

5

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

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

+0

对不起Daxim ..我不清楚..你可以请清楚地解释步骤,如果可能.. – Madhan 2012-02-29 06:22:56

0

首先你记得你通过ftf传输的文件夹名是什么。如果传输速度如此之快,而且您无法监控它是否已经在服务器中,那么可以使用其他方法来验证它是否成功加载。 1.通过您的托管服务提供商登录到您的网站的cPanel 2.找到传统的文件管理器文件夹,然后单击 3.选择文档根目录中,单击Go,然后开始看发现你通过FTP转院您的文件夹名称。