perl - Perl 菱形运算符是否迭代非魔法数组(不是@ARGV)？

Question

我不认为以下应该工作，但它确实:

$ perl -e '@a = qw/1222 2 3/; while (<@a>) { print $_ ."\n";}'
1222
2
3
$

据我所知，Perl 的 <>操作符应该处理文件句柄、globs 等，除了文字 <> (而不是 <FILEHANDLE> )，它神奇地迭代了 @ARGV .

有谁知道它是否也应该像我的测试一样工作？

Answer 1

魔法在工作!

来自' perldoc perlop ':

If what's within the angle brackets is neither a filehandle nor a simple scalar variable containing a filehandle name, typeglob, or typeglob reference, it is interpreted as a filename pattern to be globbed, and either a list of filenames or the next filename in the list is returned, depending on context.

这是您使用此代码触发的规则。这是发生了什么:

<@a> 被(语法上，在编译时)确定为 glob扩展

因此 <> 将@a 变成字符串“1222 2 3”(数组的字符串插值)

glob ("1222 2 3") 在列表上下文中返回 ('1222', '2', '3')