Perl脚本中"* *"的作用是什么？含多变体脚本解析

问题描述 #

我有如下Perl脚本：

eval{print "Just ";} * * {print "Another ";} * * {print "Perl ";} * * {print "Hacker\n";}

以及更多变体：

@${print "Just ";} * * {print "Another ";} * * {print "Perl ";} * * {print "Hacker\n";}
$${print "Just ";} * * {print "Another ";} * * {print "Perl ";} * * {print "Hacker\n";}
do{print "Just ";} * * {print "Another ";} * * {print "Perl ";} * * {print "Hacker\n";}
$#{print "Just ";} * * {print "Another ";} * * {print "Perl ";} * * {print "Hacker\n";}

请问其中的* *起到什么作用？

回答 #

嘿，这个问题挺有意思的——Perl的语法灵活性在这里体现得淋漓尽致！

简单来说，这些* *的核心作用是作为语法粘合剂，让前后的代码块/表达式都能被执行，同时保证整个语句符合Perl的语法规则，具体拆解一下：

1. 语法合法性要求：Perl不允许两个代码块/表达式直接紧挨着写（比如{print "Just ";}{print "Another ";}会直接报语法错误），必须用操作符分隔开，告诉Perl“这是两个独立的表达式，需要分别求值”。

2. *的本质是乘法操作符：这里的* *其实就是带空格的乘法操作符（Perl允许操作符前后加任意空格），连续的*是为了连接多个表达式——比如Expr1 * Expr2 * Expr3 * Expr4，写成Expr1 * * Expr2 * * Expr3 * * Expr4只是视觉上更清晰，本质和无空格的写法完全一致。

3. 触发表达式执行：乘法操作符*会强制两边的操作数进入数值上下文，这意味着Perl会先执行前后的表达式（比如eval{...}、@${...}、{...}这些），获取它们的数值结果后再做乘法运算。而我们真正关心的是这些表达式里的print语句会被执行，至于乘法的结果（比如1111、0111之类的）根本没人在乎——它只是为了满足语法要求的“副作用载体”。

举个例子，@${print "Just ";}这段：

• 先执行print "Just ";，输出字符串，返回值为1（print成功时的返回值）
• @${1}是对数组@1的解引用（Perl允许数字作为变量名），在数值上下文里返回数组的元素个数（默认是空数组，返回0）
• 这个0会和后面表达式的结果相乘，但我们只关心print已经执行了

说白了，这就是Perl“高尔夫代码”里的小技巧——用最简洁的符号实现多个语句的连续执行，利用操作符的副作用触发代码块的运行。

内容的提问来源于stack exchange，提问作者69 420 1970