Perl中内联foreach循环与print的交互及代码解析疑问

先看你给出的示例代码：

use strict; 
use warnings; 
my @array = ("word1", "word2"); 
print foreach @array, "\n"; 

执行后输出为word1word2\n，下面来拆解Perl对这行代码的解析逻辑。

你已经理解print foreach @array;等价于：

foreach @array {
    print; # 等价于 print $_; 
} 

这是因为Perl支持语句修饰符形式的foreach——把foreach放在单个语句后面，遍历列表并执行前面的语句。

为什么追加"\n"仍合法？ #

Perl中，语句修饰符foreach后面跟的是一个列表（LIST），而列表可以是逗号分隔的多个表达式。@array, "\n"本质上是把数组@array的所有元素和字符串"\n"合并成了一个新列表：("word1", "word2", "\n")。

所以print foreach @array, "\n";完全等价于：

foreach my $_ (@array, "\n") {
    print; # 依次打印$_的每个值：word1、word2、"\n"
}

因为print默认不会自动添加换行，所以三个元素会连续输出，最终呈现为word1word2后跟一个换行（也就是你看到的word1word2\n）。

为什么加括号会报错？ #

问题出在Perl的语法优先级和解析规则上：

• 如果你写成print foreach (@array), "\n";，Perl会把print foreach (@array)解析为一个完整的语句，后面的"\n"就成了无上下文的孤立表达式，自然会报错。
• 如果你尝试把foreach部分套括号，比如print (foreach @array, "\n");，这完全违背了Perl语句修饰符的语法——foreach作为后置修饰符不能被包裹在括号里，因此直接触发语法错误。

内容的提问来源于stack exchange，提问作者Kellen Brosnahan