Perl中形如/:$something/的表达式有什么作用？

Perl里的/.../是模式匹配操作符，默认会对当前的默认主题变量$_执行正则匹配，返回匹配成功/失败的布尔值。

你看到的/:$something/是这个操作符的具体用法：

• 斜杠内部的:$something是正则匹配的规则：:是字面量的冒号字符，$something是变量插值——Perl会先把变量$something的实际值替换到正则表达式中，再执行匹配。
• 举个例子，如果$something的值是bar，那么这个表达式等价于/:bar/，作用是检查$_变量的内容里是否包含:bar这个子串，包含则返回真，否则返回假。

针对你遇到的代码if (/:$array[k]/)，这里需要注意：Perl中数组元素的正确访问语法是$array[$k]，原代码可能存在语法笔误。假设是$array[$k]，那么这个if条件的作用就是：把数组@array中索引为$k的元素值插入到正则里，检查$_中是否存在:[该元素值]这样的子串，匹配成功则执行if代码块。

额外补充：

• 如果不想让Perl对正则里的变量做插值，可以用单引号包裹模式（比如m':$something'），或者转义$为\$（即/: \$something/，此时$something会被当作字面量字符串处理）。
• /.../是m//的简写，两者功能完全一致，显式写m//有时能提升代码可读性，尤其是正则里包含斜杠的时候。

内容的提问来源于stack exchange，提问作者Blessed Geek