Perl模式匹配变量问题

Question

我正在尝试打开一个文件，匹配特定行，然后将 HTML 标签包裹在该行周围。看起来非常简单，但显然我遗漏了一些东西并且没有正确理解 Perl 匹配的模式变量。

我将这一行与以下内容相匹配：

$line =~ m/(Number of items:.*)/i;

它将整行放入 $1 中。我尝试像这样打印出我的新行：

print "<p>" . $1 . "<\/p>;

我希望它打印出这个：

<p>Number of items: 22</p>

但是，我实际上得到了这个：

</p>umber of items: 22

我已经尝试了各种变体 - 在单独的行上打印每个位，将 $1 设置为新的变量，使用 $+ 和 $& 等，我总是得到相同的结果。

我缺少什么？

Answer 1

您的匹配项中有一个 \r，打印时会导致输出格式错误。

编辑：
为了进一步解释，您的文件很可能具有 Windows 样式 \r\n 行结尾。 chomp 不会删除 \r，它会被纳入你的贪婪匹配中，并导致令人不快的输出（\r 意味着返回到行的开头并继续打印）。

您可以通过添加类似的内容来删除 \r

$line =~ tr/\015//d;

Answer 2

您能提供一个完整的代码片段来说明您的问题吗？我没看到。

需要注意的一件事是 $1 和朋友指的是该动态范围内最后一次成功匹配的捕获。在使用匹配之前，您应该始终验证匹配是否成功：

$line = "Foo Number of items: 97\n";
if ( $line =~ m/(Number of items:.*)/i ) {
    print "<p>" . $1 . "<\/p>\n";
}

Answer 3

您刚刚了解到（供将来参考）.* 有多危险。

在经历过类似的不愉快之后，这些天我喜欢尽可能精确地描述我期望捕捉到的东西。也许

$line =~ m/(Number of items:\s+\d+)/;

那么我确定一开始就不会捕获有问题的控制角色。无论 Cygwin 对 Windows 文件做什么，我都可以保持幸福的无知。