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

下面是编程之家 jb51.cc 通过网络收集整理的代码片段。

编程之家小编现在分享给大家，也给大家做个参考。

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: $err\n"; #每一步都可以看看操作是否成功，都有返回码

@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: $err\n" ;

$path = $FTP->Pwd(); print " Current directory is '$path'\n" if ! $result;

#第三步，进行一系列远程操作，每一步都有返回码，可以查看状态，了解问题出在哪里

$result = $FTP->Get("dde.zip","dde.zip");

$err = $FTP->Error();print "*** Error: $err\n" 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();

以上是编程之家(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

总结

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。