小编CoV*_*oV 的帖子

我正在尝试匹配Perl中的正则表达式.我的代码如下所示:

my $source = "Hello_[version]; Goodbye_[version]";
my $pattern = "Hello_[version]";
if ($source =~ m/$pattern/) {
  print "Match found!"
}

问题出现在括号表示Perl尝试匹配正则表达式时的字符类(或者我读过),并且匹配最终失败.我知道我可以用\[or 来转义括号\],但这需要另一段代码来遍历字符串并搜索括号.是否有一种方法可以自动忽略括号而不单独转义它们？

快速说明:我不能只添加反斜杠,因为这只是一个例子.在我的真实代码中,$source并且$pattern都来自Perl代码之外(URIEncoded或来自文件).