perl如何實(shí)現(xiàn)把自定義的模塊上傳到服務(wù)器指定文件夾下

515572768

跪求各位大俠,如何把自定義的模塊上傳到遠(yuǎn)程服務(wù)器上面？上傳了之后如何下載？感激！�。�！

515572768

沒(méi)人會(huì)嗎？

longbow0

注冊(cè)一個(gè)PAUSE (http://pause.perl.org)帳號(hào)，上傳，然后就可以用CPAN安裝了

bikong0411

Net::Ftp

515572768

回復(fù) 4# bikong0411


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

代碼如下：
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;

在線等。。。

bikong0411

t C:/Perl/lib/Net/FTP/dataconn.pm line 54.是啥

515572768

回復(fù) 6# bikong0411


    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

沒(méi)人會(huì)？