perl怎么使用Net::FTP这个pm包通过ftp下载文件到本地指定路径

w664596101

perl怎么使用Net::FTP这个pm包通过ftp下载文件到本地指定路径

                        $local_file="$source_dir/$local_file";
                        $ftp->get($file_name,$local_file) || die "Get failed ftp->message";
                        push @local_file,$local_file;
我这样写好像对这个$file_name重命名了吧

a7pufap

取出一个标量;操作将数组的最后一个元素取出并返回;

$local_file=pop(@local_file);      
$ftp->get("$local_file")  or die "get failed ", $ftp->message;

asdfjnwegawei

回复 2# a7pufap

提供了一个面向对象的FTP客户端;
net::ftp获得文件的提示:
use Net::FTP;

    $ftp = Net::FTP->new("some.host.name", Debug => 0)
      or die "Cannot connect to some.host.name: $@";

    $ftp->login("anonymous",'-anonymous@')
      or die "Cannot login ", $ftp->message;

    $ftp->cwd("/pub")
      or die "Cannot change working directory ", $ftp->message;

    $ftp->get("that.file")
      or die "get failed ", $ftp->message;

    $ftp->quit;



   

a7pufap

窝子在Perl