怎样用PERL取文件

HF.SKY000

现在有两台服务器:
A服务器:
IP:10.19.2.201
Name:admin
Password:admin

B服务器:
IP:10.19.2.202
Name:sie
Password:sie

在A服务器:/unicom/uniload/lxz下有2008-09-11.log
B服务器:/unicom/uniload/zjq

问题:怎么样实现将A服务器上的2008-09-11.log日志文件取回到B服务器zjq目录下?

请高手指点.

fengc

$ scp admin@10.19.2.201:/unicom/uniload/lxz/2008-09-11.log /unicom/uniload/zjq/

关于scp不用口令的方法参考: http://www.hostingrails.com/forums/wiki_thread/27

zzyong08

用rsync如何,实现服务器之间的日志同步

cocao

Perl中，使用模块Net::FTP来使用FTP服务，一般的使用步骤如下：
  
1. 使用Net::FTP的new方法来创建一个新的FTP对象。
2. 使用login方法登录到FTP服务器。
3. 使用cwd方法来切换目录。
4. 使用get方法来获取文件。
5. 使用put方法来上传文件。
6. 使用quit方法退出。
  
更多有关标准的Net::FTP模块的应用，可以参考PerlDoc里的说明：http://perldoc.perl.org/Net/FTP.html
  

#!/usr/bin/perl -w

#使用模块Net::FTP
use Net::FTP;
#创建新的FTP连接
$ftp = Net::FTP->new
(
"10.19.2.201",
Timeout => 30
) or die "Could not connect.\n";
#登录用的用户名和密码
$username = 'admin';
$password = 'admin';
#登录到FTP服务器
$ftp->login($username,$password) or die "Could not login.\n";
#切换目录到
$ftp->cwd('/unicom/uniload/lxz');
#指定远程的文件和本地的文件
$remotefile = "2008-09-11.log";
$localfile = "2008-09-11.log";
#使用get方法下载远程文件到本地来
$ftp->get($remotefile,$localfile) or die "Could not get remotefileremotefile\n";
#退出FTP服务器
$ftp->quit;