Die 语句在 perl 的 foreach 循环中不起作用

Question

我的脚本从 FTP 下载文件并将文件移动到 FTP 中的存档目录。 我有一个在 FTP 中搜索文件的模式，并将其放入 foreach 循环中以将这些文件放入本地目录。

my $ftpUser     = 'xxxx';
my $ftpPW       = 'xxxxxx';
my $FTPHost     = "xxxxxxxxxxx";
my $remotefile  = 'CAP*.csv';
my $archivefile = "/usr/archive/CAP_${file_date_time}.csv";

my $ftp = Net::FTP->new($FTPHost);
$ftp->login( $ftpUser, $ftpPW ) or die print L1 "Could not login FTP :" . $ftp->message . "\n";
print L1 "Login to FTP was successfull\n";
$ftp->cwd("/")
    or die print L1 "ftp_cd failed: " . $ftp->message . "\n";
foreach my $file_to_fetch ( $ftp->ls($remotefile) ) {
    $ftp->get( $file_to_fetch, $localfile ) or die print L1 "Could not get file from FTP :" . $ftp->message . "\n";
    $remotefile = $file_to_fetch;
    print "\$file_to_fetch ::: $file_to_fetch\n";
    print L1 "File - ${file_to_fetch} Successfully Downloaded from FTP\n";
    $ftp->rename( $file_to_fetch, $archivefile )
        or die print L1 "Could not move file to archive directory :" . $ftp->message . "\n";
    print L1 "File - ${file_to_fetch} Moved to archive directory as CAP_${file_date_time}.csv\n";
}
$ftp->quit;

print L1 "FTP process was successfully completed\n";
if ( -s $localfile ) {
    open F1, "$localfile"
        or die( print L1 "$localfile cannot be opened for reading \n" );
} else {
    die( print L1 "$localfile does not exist \n" );
}

在执行上述代码时，如果我正在搜索的文件不在 FTP 中，但它没有打印“无法从 FTP 获取文件”日志的 die 语句，而是从 FTP 中出来并继续下一组代码打印 L1 "FTP 进程已成功完成\n"。

请帮助我解决这些问题，为什么 die 语句在 foreach 中不起作用，如果它无法从 FTP 获取文件。

Answer 1

替换，

$ftp->get($file_to_fetch,$localfile) or die print L1 "Could not get file from FTP :" . $ftp->message ."\n";

与

$ftp->get($file_to_fetch,$localfile) or die "Could not get file from FTP :". $ftp->message ."\n";

因为die 在第一种情况下将print() 返回值作为参数而不是错误消息。

或者制作你自己的函数，

sub mydie {
  my ($msg) = @_;

  print L1 $msg;
  die $msg;
}

或者如果函数不是一个选项，

$ftp->get($file_to_fetch,$localfile) or do {

  print(L1 $_), die($_) for "Could not get file from FTP :". $ftp->message ."\n";
};

Answer 2

您的问题出现是因为您将print 语句的返回值传递给die：

... or die print L1 "Could not get file from FTP :" . $ftp->message . "\n";

我怀疑您正在尝试将 die 语句的输出镜像到文件和 STDERR。

如果是这种情况，那么我建议您执行以下操作：

1. 将所有 die print L1 语句更改为仅 die

2. 从每个 die 消息中删除尾随换行符 \n，因为这会隐藏行号信息。

   $ftp->login( $ftpUser, $ftpPW )
       or die "Could not login FTP :" . $ftp->message;
   

3. 创建一个$SIG{__DIE__} 处理程序以将您的die 输出镜像到文件句柄。

   local $SIG{__DIE__} = sub {
       print L1 @_;
       die @_;
   };