Perl 的 $* 变量用来做什么？

Question

我有一些来自 http://www.hyllander.org/node/23 的代码，它使用$* （“dollar asterisk”或“dollar star”），但我的 perl 版本报告：

$* is no longer supported at migrate.pl line 284.

你知道这样做的副作用是什么吗

$*=1

？这是否会以某种方式影响 split< 等函数/code> 或分词器或正则表达式？

Answer 1

以下是 perldoc perlvar 的部分输出：

$* 设置为非零整数值以进行多行
字符串内匹配，0（或
undefined) 告诉 Perl 它可以
假设字符串包含一个
线，以优化为目的
模式匹配。模式匹配开启
包含多个换行符的字符串
当 $* 时会产生令人困惑的结果
为 0 或未定义。默认为
不明确的。 （助记符：* 匹配
多个事物。）这个变量
仅影响解释
“^”和“$”。字面换行符可以是
即使在“$* == 0”时也会进行搜索。

现代语言中不推荐使用 $*
Perl，被“/s”和“/m”取代
模式匹配修饰符。

为 $* 分配非数值
触发警告（并使 $* 起作用
if "$* == 0")，同时分配
$* 的数值使得
隐式“int”应用于
值。