perl使用Net::FTP模塊的問題

515572768

    使用這個模塊時老是提示“Can't use an undefined value as a symbol reference at C:/Perl/lib/Net/FTP/dataconn.pm line 54.”登錄的服務(wù)器時windows sever 2003系統(tǒng)，請問該怎么解決？

代碼如下：
use Net::FTP;

$ftp = Net::FTP->new
(
"www.trcio.com",
Timeout => 60
) or die "Could not connect.\n";


$username = "read";
$password = "read";

$ftp->login($username,$password) or die "Could not login.\n";

$ftp->cwd('/g');

$remotefile = "use_warnings.txt";
$localfile = "use_wa.txt";

$ftp->get($remotefile,$localfile) or die "Could not put localfilelocalfile\n";

$ftp->quit;
  
哪位大俠幫忙解決下�。�！任務(wù)所需！！感激感激�。�

zuerrong

515572768 發(fā)表于 2012-02-08 18:28
使用這個模塊時老是提示“Can't use an undefined value as a symbol reference at C:/Perl/lib/Net/FT ...

你在腳本里加上use warnings和use strict就明了。

515572768

回復(fù) 2# zuerrong

用了 use warnings，但輸出的錯誤信息還是上面那句“Can't use an undefined value as a symbol reference at C:/Perl/lib/Net/FTP/dataconn.pm line 54.”，為什么？同時可以確定是put那句出錯的

C:/Perl/lib/Net/FTP/dataconn.pm的部分代碼如下：

sub _close {                                                           #48行
  my $data = shift;                                                  #49行
  my $ftp  = ${*$data}{'net_ftp_cmd'};                    #50行
                                                                              #51行
  $data->SUPER::close();                                             #52行
                                                                                #53行
  delete ${*$ftp}{'net_ftp_dataconn'}                         #54行
    if exists ${*$ftp}{'net_ftp_dataconn'}                     #55行
    && $data == ${*$ftp}{'net_ftp_dataconn'};             #56行
}

515572768

回復(fù) 2# zuerrong


    說錯了，可以確定是get那句出錯的（未用put）

bxg-1982

測試樓主的代碼，沒有任何問題哦

515572768

回復(fù) 5# bxg-1982


    不可能吧？我的怎么老是提示

liu.cy_cu

“Can't use an undefined value as a symbol reference at C:/Perl/lib/Net/FTP/dataconn.pm line 54.

sub _close {                                                           #48行
  my $data = shift;                                                  #49行
  my $ftp  = ${*$data}{'net_ftp_cmd'};                    #50行
                                                                              #51行
  $data->SUPER::close();                                             #52行
                                                                                #53行
  delete ${*$ftp}{'net_ftp_dataconn'}                         #54行
    if exists ${*$ftp}{'net_ftp_dataconn'}                     #55行
    && $data == ${*$ftp}{'net_ftp_dataconn'};             #56行
}
不能將一個未定義的值當(dāng)做符號引用，
也就是說delete ${*$ftp}{'net_ftp_dataconn'}這句話中，${*$ftp}是未定義的，然后第50行中$ftp的由來是${*$data}{'net_ftp_cmd'}

==
寫到這里我忽然發(fā)現(xiàn)，  delete ${*$ftp}{'net_ftp_dataconn'} if exists ${*$ftp}{'net_ftp_dataconn'} && $data == ${*$ftp}{'net_ftp_dataconn'}; 應(yīng)該是一行才對，你最好先確認(rèn)一下你行數(shù)的數(shù)法是不是對的

515572768

回復(fù) 7# liu.cy_cu


    sub _close {                                                                                       #48行
  my $data = shift;                                                                                 #49行
  my $ftp  = ${*$data}{'net_ftp_cmd'};                                                  #50行
                                                                              #51行
  $data->SUPER::close();                                                                        #52行
                                                                                #53行
  delete ${*$ftp}{'net_ftp_dataconn'}if exists ${*$ftp}{'net_ftp_dataconn'}&& $data == ${*$ftp}{'net_ftp_dataconn'};             #54行
}
是這樣的，大俠，你看下為什么老是提示那個信息

liu.cy_cu

說一下大概的猜想，
出錯的部分有可能是因?yàn)镕TP命令沒有正確執(zhí)行，鏈接已經(jīng)銷毀，所以傳到 _close方法被賦到$data的那個實(shí)例的net_ftp_cmd已經(jīng)沒有了，所以$ftp就是未定義的值，所以在
if exists ${*$ftp}{'net_ftp_dataconn'}時，會報錯。

請先確認(rèn)你在運(yùn)行perl的機(jī)器上測試連接你的FTP服務(wù)器是否OK

515572768

回復(fù) 9# liu.cy_cu


    請問Net::FTP模塊連接服務(wù)器時是采用的被動連接還是主動連接？在我的計算機(jī)上面采用被動方式可以登錄ftp.cpan.org服務(wù)器，但無法登錄我們www.trcio.com服務(wù)器，同時，無論采用被動登陸還是主動登錄服務(wù)器使用Net::FTP模塊操作ftp.cpan.org服務(wù)器時都能成功，不會出現(xiàn)提示錯誤；但操作我們的服務(wù)器都會出現(xiàn)提示錯誤，如果使用put上傳文檔的話，可以在我們服務(wù)器上面生成相應(yīng)文檔，但文檔里面內(nèi)容為空，該怎么辦？