关于Net::FTP的问题

alonelinux

#!/usr/bin/perl use strict; use Net::FTP my $ftp_ip="xxx.xxx.xxx.xxx"; my $ftp_pwd="***"; my $ftp_port="21"; my $ftp_user="user"; my $ftp=Net::FTP->new("$ftp_ip",Port=>$ftp_port,Debug=>0) or die "Could'n connect@\n"; $ftp->login("$ftp_user","$ftp_pwd") or die $ftp->message; $ftp->cwd("/home/lagergm") or die $ftp->message; $ftp->get("*.tgz") $ftp->quit;

在执行完后报这样的错:
Net::FTP version xxx.xxx.xxx.xxx(代码里的$ftp_ip) required--this is only version 2.75 at /usr/lib/perl5/5.8.5/Exporter/Heavy.pm line 121.
BEGIN faild--compilation alorted at ./test.pl line 9.

[ 本帖最后由 alonelinux 于 2007-8-29 15:28 编辑 ]

flw

use Net::FTP
=>
use Net::FTP;


你少了个分号。

alonelinux

谢谢版主.貌似已经好了.....看来写代码习惯还不好!!!:wink:

sewenew

use Net::FTP ;
你把分号漏了，加上再试试