请假怎样用perl 写个ftp的东西到一台服务器上去取回一个文件？

oraclelangzi

我想写个perl的程序去到另外的一台机器上 自动的去把aa.txt文件取到本机 。由于刚学习不是太会写 还急着用请高手看看指导一下。
谢谢。
#!/usr/local/bin/perl
use Net::FTP;
my $ftp = Net::FTP->;new($host,Timeout=>;60,Debug=>;1) || die "Can't connect: $@\n";
        $ftp->;open("131.78.111.1");
        $ftp->;login(my,123) || die "Couldn't authenticate, even with explicit username and password.\n";
print "Connect Success\n";
$ftp_success=$ftp->;get(aa.txt);
print ("$ftp_success.\n");
$ftp->;bye;


在线等待 。

gangjh

强烈建议你加上 use strict ;
这样你可以很快发现错误所在

1. 
   
2. #!/usr/bin/perl
   
3. use Net::FTP;
   
4. use strict ;
   
5. 
   
6. my $host="192.168.18.2" ;
   
7. my $ftp = Net::FTP->;new($host,Timeout=>;60,Debug=>;1) || die "Can't connect: $@\n";
   
8.        $ftp->;login("user","pass") || die "Couldn't authenticate, even with explicit username and password.\n";
   
9. print "Connect Success\n";
   
10. my $ftp_success=$ftp->;get("bbb.txt");
    
11. print ("$ftp_success.\n");
    
12. 
    
13. $ftp->;quit ;
    

复制代码

[ 本帖最后由 gangjh 于 2005-12-2 13:53 编辑 ]

oraclelangzi

谢谢 楼主！！
在您的帮助下 我的问题搞定了！！