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中的元素数。

Answer 2

首先，您是否记得通过ftf传输的文件夹名称是什么？如果传输速度太快并且您无法监视它已经在服务器中，则可以使用anothet方法验证它是否成功加载。 1.通过您的托管服务提供商登录您网站的CPanel 2.找到旧文件管理器文件夹，然后单击 3.选择文档根目录，单击Go，然后开始查看通过ftp传输的文件夹名称。

确定上传状态

2 个答案: