weiliwei 发表于 2015-11-6 08:36:57

perl脚本:FTP获得服务器文件

  该脚本采用FTP方式从批量服务器上获得文件。
  

#!perl
#Author: HC
#Date: 2012/10/22
use Net::FTP;
use Cwd;
$localFile = getcwd()."/log/";
if (!-e $localFile){
mkdir $localFile, 0755 or warn "Cannot make $localFile directorty:$!";
}
if (!open SERVER_INFO, getcwd()."/ftpserver.txt"){
die "Ftp server information file can not be found:$!";
}
while (<SERVER_INFO>){
@fields = split;
$serverName = $fields;
$server = $fields;
$port = $fields;
$user = $fields;
$pwd= $fields;
$remoteFile = $fields;
$ftp = Net::FTP->new($server, Port=>$port, Debug=>0, Timeout=>1000)
or die &quot;Cannot connect:$!&quot;;
$ftp->login($user, $pwd)
or die &quot;Could not login:$!&quot;;
$ftp->get($remoteFile, $localFile.$serverName.&quot;.log&quot;)
or die &quot;Could not get remote file:$remoteFile:$!&quot;;
print $serverName.&quot;Get file successful.\n&quot;;
$ftp->quit;
}
print &quot;Press <Enter> to continue...&quot;;
<>;
system &quot;start $localFile&quot;;



  

版权声明:本文为博主原创文章,未经博主允许不得转载。
页: [1]
查看完整版本: perl脚本:FTP获得服务器文件