perl 正则表达式匹配字符后面的所有单词答案

【问题标题】：perl regex to match all words following a characterperl 正则表达式匹配字符后面的所有单词
【发布时间】：2012-07-23 00:54:18
【问题描述】：

我不是 Perl 和正则表达式方面的专家。所以这是我的问题。

如何编写一个正则表达式来匹配字符串中指定字符右侧的所有单词并在 Perl 中分别检索每个单词？

我不明白如何匹配未指定数量的单词，然后最重要的是一次检索一个？如果这不可能，那么我在 Perl 中最好的选择是什么？

E.G.：我有一个像 b=var1+var2 这样的 C 任务。我希望能够提取var1 和var2（如果存在）。重要的是我不想匹配特定的var1 和var2，而是赋值运算符之后的任何变量。

感谢您的帮助！

【问题讨论】：

标签： regex perl

【解决方案1】：

\G/pos 可能有用。

$_ = 'b=var1+var2';
# force further /g matches to start after the first '='
/=/g;

while (/(\w+)/g) {
    print "$1\n";
}

# prints
# var1
# var2

【讨论】：

【解决方案2】：

也许以下方法对你有用：

use Modern::Perl;

my $string = 'b=var1+var2';
my $after  = '=';

say for ( $string =~ /$after(.*)/ )[0] =~ /(\w+)/g;

输出：

var1
var2

希望这会有所帮助！

【讨论】：

【解决方案3】：

您可以在正则表达式中使用嵌套组。因此，例如，下面的正则表达式应该匹配等式字符之后的所有单词（定义为 \w，但您可以对其进行调整）（由非 \w 分隔，但您也可以对其进行调整）：

=((?<Word>\w*)[^\w]*)*

【讨论】：