使用perl的Net::FTP模块遇到的问题

lzj24

使用perl写的一个上传日志文件的插件，FTP的大致代码如下：

#!/usr/bin/perl

use warnings;
use strict;
use Net::FTP;


my $ftp = Net::FTP->new($host,Debug => 0,Passive =>0) or print LOG "Could not connect\n";
$ftp->login($username,$password) or print LOG "Could not login\n";
$ftp->binary or die "Set type to binary\n";
$ftp->cwd($path) or die "INFO: Could not change directory\n";
$ftp->put($nagios_file) and print LOG "upload $nagios_file OK\n" or print LOG "upload $nagios_file faild\n";
$ftp->quit;

其中host ,username ,password , path , nagios_file在前面的代码中均有定义的，此处贴出来已经省略了。其中nagios_file是已经打包好要上传到日志服务器的bz2格式的文件，最后到日志服务器上面查看上传的结果是，虽然有此打包文件，但是文件大小为0。上传文件的目标目录有读写权限，对root用户是777权限，排除没有写入权限的错误。

perl菜鸟一枚，求助各位perl大神。

yybmsrs

日志显示什么

lzj24

哪里可以看日志？我开了Debug没有报错。回复 2# yybmsrs


   

蚊仔perlperl

Debug=>1
看一下你做了什么

lzj24

开了debug啊，但是没有看到报错。最后改成scp来上传了，没有问题。初步估计是私有云上做了策略。回复 4# 蚊仔perlperl