在关闭的文件句柄上打印：使用警告-Perl [重复]

Question

我正在尝试打开文件句柄，打印文件句柄并关闭它。

use strict;
use warnings;
open( $fh, ">>", "$filename");
print $fh $mesg."\n";
close $fh; 

现在当我尝试编译这个文件时，它会抛出错误：print() on closed filehandle $fh

这个问题是在我添加了使用警告之后才出现的。

提前致谢。

Answer 1

你应该总是检查open的返回值：

open my $fh, '>>', $filename or die "Can't open $filename: $!";

或者，您可以使用autodie，这样即使您不检查其返回值，open 也会失败。