变量中的正则表达式中的全局匹配

Question

我有一个perl脚本，其中包含一些变量的正则表达式，例如：

my $velar_velar = qr/([a-zA-Z']*(?:[^n\s]g|[^n\s]k))\s+((?:g|k|c[^ieyh])[a-zA-Z']*)/;

稍后，我在if（和elsif）语句中使用这些语句，但我希望此正则表达式能够每行匹配多次：

$text = "tack go pack go";
   if ($text =~ /$velar_velar/g) {
   print "Yes";
   }

两次打印“是”的地方。我已经尝试过我在这里的代码，但似乎没有用。我也尝试将/g放在正则表达式变量的末尾，但这也不起作用。 当它是变量时，如何使我的正则表达式不止一次匹配？我

Answer 1

将var foo = require('../../../../../library/foo')更改为if ($text =~ /$velar_velar/g) {。