这段代码：
foreach my $file (@data_files) {
open my $fh,'<',$file || croak "Could not open file $file!\n";
my @records = <$fh>;
close $fh;
....
}
产生此错误：
readline() on closed filehandle $fh at nut_init_insert.pl line 29.
而且我不知道为什么.
编辑：原帖有’,’而不是’<'在公开声明中.
解决方法
您发布的代码中有一个拼写错误(第二个arg要打开),但这并不能解释错误消息.该问题的信息是这样的：
Unknown open() mode ',' at ...
您的问题与优先级有关. ||绑定太紧,导致Perl将整个表达式视为要打开的第三个参数：
$file || croak $!
因此,即使打开失败(可能是因为$file不是有效的文件名),也不执行croak(因为$file为true且||为短路).打开失败后,您的程序尝试从未打开的文件句柄中读取一些行,并且您收到以下错误消息：
readline() on closed filehandle $fh at ...
您想要使用以下之一.第二个选项有效(与您的代码不同),因为优先级较低.
open(my $fh,$file) || croak ...; open my $fh,$file or croak ...;
有关运算符优先级的详细信息,请参见perlop.您的案例中的相关点是||运算符的优先级高于列表分隔符(逗号).