大佬教程收集整理的这篇文章主要介绍了perl的ftp模块,远程操作linux服务器,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
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();
以上是大佬教程为你收集整理的perl的ftp模块,远程操作linux服务器全部内容,希望文章能够帮你解决perl的ftp模块,远程操作linux服务器所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。