在Perl中使用列表上下文中的菱形运算符时,为什么会出现关闭的文件句柄错误？

概述这段代码： 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 这段代码：

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.您的案例中的相关点是||运算符的优先级高于列表分隔符(逗号).

总结

以上是内存溢出为你收集整理的在Perl中使用列表上下文中的菱形运算符时,为什么会出现关闭的文件句柄错误？全部内容，希望文章能够帮你解决在Perl中使用列表上下文中的菱形运算符时,为什么会出现关闭的文件句柄错误？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。