为什么我不能在Perl中使用带数组的菱形操作符？
提问于 2010-11-29 07:26:12
码
$ cat test1
hello
i am
lazer
nananana
$ cat 1.pl
use strict;
use warnings;
my @fh;
open $fh[0], '<', 'test1', or die $!;
my @res1 = <$fh[0]>; # Way1: why does this not work as expected?
print @res1."\n";
my $fh2 = $fh[0];
my @res2 = <$fh2>; # Way2: this works!
print @res2."\n";Run
$ perl 1.pl
1
5
$我不知道为什么Way1不像预期的那样工作，而Way2却这样做。这两种方法不一样吗？这里发生了什么事？
回答 4
Stack Overflow用户
回答已采纳
发布于 2010-11-29 07:39:17
Stack Overflow用户
发布于 2010-11-29 07:44:07
Stack Overflow用户
发布于 2010-11-29 07:40:35
任何比裸字(解释为文件句柄)或简单标量$var更复杂的内容都会被解释为glob()函数的参数。只有简单的标量和简单的标量被视为文件句柄，由<...>操作符迭代。
基本的规则是：
<bareword> ~~ readline bareword
<$scalar> ~~ readline $scalar
<$array[0]> ~~ glob "$array[0]"
<anything else> ~~ glob ...页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/4305153
复制相关文章
点击加载更多
腾讯云开发者
