perl regex用于全局之间的一切

Question

我的字符串格式如下。

could/MD be/VB said/VBN to/TO be/VB ``/`` duly/RB adopted/VBN ''/'' 
even/RB though/IN 
[ it/PRP ]

我希望匹配MD，VB，VBN，TO，VB，“，RB等后的东西。

这就是我所拥有的

while(<$FH>)
{
  if($_ =~ /\/(.+?)\s/g)
  {
    print "$1\n";
  }
}

如果我使用上面的字符串运行它，我会得到。

MD
RB
PRP

即使我使用/g，它也只匹配我的正则表达式的第一个实例 我怎样才能匹配每一个，包括标点符号？

Answer 1

您可以按如下方式遍历每一行：

while (<$FH>) {
  print "$_\n" for /\/(\S+)/g;
}

Ideone Demo