regex - 使用 Perl 多次匹配正则表达式

Question

菜鸟问题在这里。我有一个非常简单的 perl 脚本，我希望正则表达式匹配字符串中的多个部分

my $string = "ohai there. ohai";
my @results = $string =~ /(\w\w\w\w)/;
foreach my $x (@results){
    print "$x\n";
}

这不是我想要的方式，因为它只返回 ohai。我希望它匹配并打印出 ohai ther ohai

我将如何去做这件事。

谢谢

Answer 1

这会做你想要的吗？

my $string = "ohai there. ohai";
while ($string =~ m/(\w\w\w\w)/g) {
    print "$1\n";
}

它返回

ohai
ther
ohai

来自 perlretut:

The modifier "//g" stands for global matching and allows the matching operator to match within a string as many times as possible.

此外，如果您想将匹配项放入数组中，您可以执行以下操作:

my $string = "ohai there. ohai";
my @matches = ($string =~ m/(\w\w\w\w)/g);
foreach my $x (@matches) {
    print "$x\n";
}