perl的ftp模塊，遠(yuǎn)程操作linux服務(wù)器

leehunter

這個(gè)模塊是Win32::Internet模塊中的FTP功能，與Net::FTP功能大同小異，但是后者在所有平臺(tái)都可以用
其實(shí)就是window電腦遠(yuǎn)程登錄linux服務(wù)器，自動(dòng)批量下載或者上傳一些東西而已，沒(méi)有其它用途
[Perl]代碼
use Win32::Internet;
$I = new Win32::Internet();
$host = "服務(wù)器IP地址";
$user = "用戶(hù)名";
$pass = "密碼0";
#第一步，登陸遠(yuǎn)程服務(wù)器
print "Doing FTP()...\n";
$handle2 = $I->FTP($FTP, $host, $user, $pass, 21, 1);#該win32對(duì)象的FTP方法，用來(lái)遠(yuǎn)程登錄FTP
print "Returned from FTP()...\n";
#($n, $t) = $I->Error(); 返回值是一個(gè)數(shù)組，包括返回碼和解釋。
print "Error=", $I->Error(), "\n";
print $FTP->GetResponse();#這個(gè)是返回一些登陸信息
print "\n----------------------------------------\n";

#第二步，對(duì)遠(yuǎn)程ftp服務(wù)器做一些簡(jiǎn)單操作
$path = $FTP->Pwd(); print "    Current directory is '$path'\n" ;#當(dāng)前目錄
$err = $FTP->Error();print "    Error: $err\n"; #每一步都可以看看操作是否成功，都有返回碼
@files = $FTP->List("*.*");print "Found $#files files.\n"; #查看該登陸用戶(hù)當(dāng)前目錄下文件
#@files = $FTP->List("*.*", 2);
#@files = $FTP->List("*.*", 3); #另外幾種查看文件列表的方式
$dir = "/tmp";$result = $FTP->Cd($dir);
$err = $FTP->Error();print "*** Error: $err\n" ;
$path = $FTP->Pwd(); print "    Current directory is '$path'\n" if ! $result;

#第三步，進(jìn)行一系列遠(yuǎn)程操作，每一步都有返回碼，可以查看狀態(tài)，了解問(wèn)題出在哪里
$result = $FTP->Get("dde.zip","dde.zip");
$err = $FTP->Error();print "*** Error: $err\n" if ! $result;
#每一步都都可以用這句話(huà)來(lái)查看
$result = $FTP->Put("test.pl","test.pl");
$result = $FTP->Mkdir("internet_testing");
$result = $FTP->Rmdir("internet_testing");
$result = $FTP->Rename("test.pl", "test.xxx");
$result = $FTP->Delete("test.pl");
$result = $FTP->Del("test.xxx");
$FTP->Close();