perl如何实现把自定义的模块上传到服务器指定文件夹下

515572768

跪求各位大侠,如何把自定义的模块上传到远程服务器上面？上传了之后如何下载？感激！！！！

515572768

没人会吗？

longbow0

注册一个PAUSE (http://pause.perl.org)帐号，上传，然后就可以用CPAN安装了

bikong0411

Net::Ftp

515572768

回复 4# bikong0411


    使用这个模块时老是提示“Can't use an undefined value as a symbol reference at C:/Perl/lib/Net/FTP/dataconn.pm line 54.”登录的服务器时windows sever 2003系统，请问该怎么解决？

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

回复 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

没人会？