perl - 在模式匹配中使用未初始化的值(m//)

Question

即使我声明了我的regex变量，我仍然遇到此错误。

my $pattern = '(Cat\.\sNo\.\s\d+)';

稍后在我的代码中，我使用$pattern。

if ($page =~ /$pattern/)
{
  push(@array, $element);
}

但是，当我运行我的代码时，它给了我以下错误，并继续成功运行：

Use of uninitialized value in pattern match (m//)

在Google上搜索此错误似乎指向未初始化变量的情况，尽管在我看来，该变量似乎已经被初始化了？

Answer 1

该消息并没有告诉您$pattern未初始化。告诉您$page未初始化。如果您期望$page可能未初始化，那就可以了，那么您可以通过编写以下代码来绕过警告，并为以后的源代码读者弄清楚：

if (defined($page) && ($page =~ /$pattern/))