用Perl访问ftp服务器

发布时间：2020-12-16 00:19:16 所属栏目：大数据来源：网络整理

导读：#!/usr/bin/perluse Net::FTP;$ftp = Net::FTP-new("133.109.9.1",Debug = 0)or die "Cannot connect to some.host.name: $@";$ftp-login("ftpuser",'ftppwd')or die "Cannot login ",$ftp-message;$ftp-cwd("/etc")or die "Cannot change working directory

#!/usr/bin/perl

use Net::FTP;
$ftp = Net::FTP->new("133.109.9.1",Debug => 0)
or die "Cannot connect to some.host.name: $@";
$ftp->login("ftpuser",'ftppwd')
or die "Cannot login ",$ftp->message;
$ftp->cwd("/etc")
or die "Cannot change working directory ",$ftp->message;
$ftp->get("passwd")
or die "get failed ",$ftp->message;
$ftp->quit;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!