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

发布时间：2020-12-15 23:26:17 所属栏目：大数据来源：网络整理

导读：这段代码： 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. 而且我不知道为什

这段代码：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!