perl的ftp模块，远程操作linux服务器

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

use Win32::Internet;
$I = new Win32::Internet();
$host = "服务器IP地址";
$user = "用户名";
$pass = "密码0";
#第一步，登陆远程服务器
print "Doing FTP()...n";
$handle2 = $I->FTP($FTP,$host,$user,$pass,21,1);#该win32对象的FTP方法，用来远程登录FTP
print "Returned from FTP()...n";
#($n,$t) = $I->Error(); 返回值是一个数组，包括返回码和解释。
print "Error=",$I->Error(),"n";
print $FTP->GetResponse();#这个是返回一些登陆信息
print "n----------------------------------------n";

#第二步，对远程ftp服务器做一些简单操作
$path = $FTP->Pwd(); print "    Current directory is '$path'n" ;#当前目录
$err = $FTP->Error();print "    Error: $errn"; #每一步都可以看看操作是否成功，都有返回码
@files = $FTP->List("*.*");print "Found $#files files.n"; #查看该登陆用户当前目录下文件
#@files = $FTP->List("*.*",2);
#@files = $FTP->List("*.*",3); #另外几种查看文件列表的方式
$dir = "/tmp";$result = $FTP->Cd($dir);
$err = $FTP->Error();print "*** Error: $errn" ;
$path = $FTP->Pwd(); print "    Current directory is '$path'n" if ! $result;

#第三步，进行一系列远程操作，每一步都有返回码，可以查看状态，了解问题出在哪里
    $result = $FTP->Get("dde.zip","dde.zip");
    $err = $FTP->Error();print "*** Error: $errn" if ! $result;
    #每一步都都可以用这句话来查看
    $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();

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

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