我使用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',&