Perl正则表达式-动态匹配

Question

假设我要匹配并捕获5个由一个或多个空格分隔的整数-示例输入：

1111 234 3333 456 7890

我可以这样做：

my $input = '1111        234            3333          456    7890';
if($input =~ /^\s*([0-9]+)\s+([0-9]+)\s+([0-9]+)\s+([0-9]+)\s+([0-9]+)/)
{
  #$1 = '1111', $2 = '234', $3 = '3333', $4= '456', $5 = '7890'
}

但是我想做这样的事情来使正则表达式更简单，而不是明确地将每个int重复5次：

my $input = '1111        234            3333          456    7890';
if($input =~ /^((\s*[0-9]+){5})/)
{
  #$1 = '1111        234            3333          456    7890';
  #$2 = ' 7890'
  #all other capture variables are undefined
}

但是，捕获似乎无法解决。

有没有办法我仍然可以访问我的5个照片？

更好的是捕获数量未知：

my $input = '1111        234            3333          456    7890';
if($input =~ /^((\s*[0-9]+)+)/)
{
   #foreach capture 1..N do something...
}

Answer 1

my @numbers = $input =~ /\d+/g;

全局标志将返回列表上下文中的所有匹配项，这些匹配项将存储在您的数组中。

Answer 2

如果知道分隔符是什么（在本例中为一个或多个空格），则不需要正则表达式即可捕获所需的内容。 您可以使用split 。

use strict;
use warnings;

my $input = "1111        234            3333          456    7890";
my @ints=split /\s+/,$input;
print "$_\n" foreach(@ints);

产生输出：

1111
234
3333
456
7890

Answer 3

线条的模式是否总是用空格分隔数字组？ 如果是这样，而不是正则表达式，为什么不基于空格拆分成数组

@outArray = split (/ +/,$input);

Answer 4

下面的代码将捕获前5个整数，如果这就是您想要的，则忽略其后的任何整数。 我可能不太清楚。

#!/usr/bin/perl
use strict;
use warnings;

my $in = '1111        234            3333          456    7890 12 13';

my @ints = (split ' ', $in)[0 .. 4];

print "@ints\n";

印刷品：

1111 234 3333 456 7890

克里斯