Perl: Net::FTP

本文介紹用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; #離開連線