如何使用perl substring

Question

我有一些数组的数组用方括号括起来并用逗号分隔，我想通过删除方括号和逗号来获取该数组中的值。例如。

[3,5,6,1,7,9,2,8]

我的代码：

 my $li=[1,2,3,4,5,6,7,8,9];
 my $l=substr($li,1,length($li)-2);
 my @ar=split(",",$l);
 my $a;
 foreach $a (@ar)
 { print/n$a; }

我希望在perl中使用substr将值设为3 5 6 1 7 9 2 8。 我有一个代码，但我无法理解它有点复杂，你可以请任何人解释它。

Answer 1

你试试这个：

my $str = "[3,5,6,1,7,9,2,8]";

my @htm = map { $_=~s/(\[|\])//g; $_; } split /\,/, $str;

print "Each item: $_\n" foreach(@htm);