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

Question

我从http://www.hyllander.org/node/23一些代码，使用$*（“美元星号”或“美元之星”），但我的版本的perl的报告：

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

你知道什么是做

的副作用

$*=1 

这是否影响功能，如split或标记或正则表达式？

Answer 1

这里是perldoc perlvar输出的一部分：

$ *设置为非零整数值转换为字符串内做多行 匹配，0（或 未定义）来告诉Perl它可以 假定字符串包含单个 行，用于优化 模式匹配。 包含多个换行符 的字符串可能会在$ * 为0或未定义时产生令人困惑的结果。默认为 未定义。 （助记符：*与 匹配多个事物。）这个变量 仅影响“^”和“$”的解释 。即使当“$ * == 0”时，字面换行符也可以被搜索到 。

使用$ *被弃用现代 Perl中，由 “/ s” 和 “/ M” 修饰模式匹配所取代。

分配的非数值为$ * 触发警告（和使得$ *行为 如果“$ * == 0”），而分配 数值为$ *使得该一个 隐含的“ int“应用于 值。