在perl中获取数组中的多个值

我正在编写一个 prel 程序，其中有一个包含以下模式的输入文件：

FIELDS=(1,2,3,4)

OR

FIELDS=(1,10,3,A,11,10,7,D,9,10,11,A)

值的数量不是恒定的，而是以 4 个为一组。可能有 4、8、12、16 个或更多值。

我想将这些字段值保存在单独的变量中。 我将其设置为

if($filed1=~m/^\"SORT FIELDS"\s*=\s*"("\s*(.*?)[,]+(.*?)[,]+(.*?)[,]+(.*?)[,]+[,]*")"/sgim)
.
.

$val1 = $1;
$val2 = $2;
$val3 = $3;
$val4 = $4;

但这不会达到我的目的，因为每次都会有不同数量的值（4或8或12..）。

我看到的解决方案是将其保存在数组中，但我不知道如何将这些值保存在数组中。请告诉我是否可以做到。告诉我是否还有其他方法可以得到结果。

您可以使用split， 像这样

use strict;
use warnings;

my $str = 'FIELDS=(1,10,3,A,11,10,7,D,9,10,11,A)';

if ( $str =~ / FIELDS \s* = \s* \( ( [^)]* ) \) /x ) {
  my @fields = split /,/, $1;
  print "$_\n" for @fields;
}

output

1
10
3
A
11
10
7
D
9
10
11
A