Perl REGEX在后处理输出文件时重复捕获组

使用 split

my @cols = split ' ', $_;

my $seventh = $cols[6];
my $fiftieth = $cols[49];

拆分是这种情况下的最佳选择。

my @val = split ' ', $_;
my $val7 = $val[6];

第三个数字的示例:

^\s+\d+(?:\s+(\d+\.\d+E[-+]?\d+)){3}

重复捕获组时,内容将被最后一个匹配项覆盖。

注意:在这种情况下,使用起来更干净 [0-9] 而不是 \d 因为你只需要阿拉伯数字。