代码之家 › 专栏 › 技术社区 › Håkon Hægland

简化正则表达式以捕获重复的子组

perl regex

Håkon Hægland · 技术社区 · 6 年前

my $str = "1 2 3 4 ;";
$str =~ /(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+/;
print Dumper( [$1, $2, $3, $4] );

输出 :

$VAR1 = [
          '1',
          '2',
          '3',
          '4'
        ];

$str =~ /(?:(\d+)\s+){4}/;

但它给出了:

$VAR1 = [
          '4',
          undef,
          undef,
          undef
        ];

2 回复 | 直到 6 年前

Schwern 6 年前

是的,使用 /g 匹配所有数字。

my @matches = $str =~ /\d+/g

split 在空白和 filter 对于数字。

grep /\d+/, split /\s+/, $str;

$str =~ /(?:(\d+)\s+){4}/; 不起作用,因为 {4} \d+\s+ ,它不会改变只有一个捕获组。

The fourth bird 6 年前

如果要按编号分组,则必须像以前那样创建它们。

(?:(\d+)\s+){4} 将重复外部组4次,仅捕获组1中最后一次迭代的值。

\G 得到组1中的所有数字。

\G(\d+)\h+(?=[\d\h]*;)

例如

my $str = "1 2 3 4 ;";
while ($str =~ /\G(\d+)\h+(?=[\d\h]*;)/g) {
    print "$1\n";
}

推荐文章

DotFX · RegEx捕获关键字前但括号后的所有内容

1 年前

user66001 · 正则表达式用于匹配有引号和无引号的文本,并且不匹配任何部分

1 年前

perlchamp · 为什么这也匹配?

1 年前

con · Negative Lookaward在perl正则表达式中不起作用

1 年前

Andrus · 如何在sql中查找第二个匹配项

1 年前

iato · 确保正则表达式不从命名材料中的数字中提取

1 年前

vr8ce · 非成对标记中特定字符的正则表达式

1 年前

MARTIN · 交换第一个和最后一个单词,反转所有中间的字符

1 年前

Carsten · 使用最近的搜索模式更改文本块

1 年前

Eric Marceau · Grep:有没有一种特殊的方法可以将“无字符”作为“字符位置”匹配的置换?

1 年前