本文介紹用perl 的Net::FTP來實作ftp 的用戶端 ,請看範例 ,程式內都有註解了,應該不難懂 ^^ 此模組的介紹在此檔案下載
#!/usr/bin/perl
use Net::FTP;
my $hostname="";#主機名稱
my $username="";#帳號
my $password="";#密碼
$ftp = Net::FTP->new($hostname, Debug => 0) or die "Cannot connect to $hostname: $@";
$ftp->login("$username","$password") or die "Cannot login $hostname ",
$ftp->message; #登入主機 $ftp->cwd("/tmp") or die "Cannot change to /tmp ",
$ftp->message;#改變目錄 $ftp->binary();#用binary model傳送資料,這裡有ASCII,EBCDIC,binary,and byte四種模式
#$ftp->get("file") or die "get failed ", $ftp->message;
$ftp->put("file_name") or die "get failed ", $ftp->message; #""內是是要put的檔名
$ftp->quit; #離開連線
#!/usr/bin/perl
use Net::FTP;
my $hostname="";#主機名稱
my $username="";#帳號
my $password="";#密碼
$ftp = Net::FTP->new($hostname, Debug => 0) or die "Cannot connect to $hostname: $@";
$ftp->login("$username","$password") or die "Cannot login $hostname ",
$ftp->message; #登入主機 $ftp->cwd("/tmp") or die "Cannot change to /tmp ",
$ftp->message;#改變目錄 $ftp->binary();#用binary model傳送資料,這裡有ASCII,EBCDIC,binary,and byte四種模式
#$ftp->get("file") or die "get failed ", $ftp->message;
$ftp->put("file_name") or die "get failed ", $ftp->message; #""內是是要put的檔名
$ftp->quit; #離開連線
全站熱搜
留言列表
