Perl 匹配括号内的内容

Posted 2023-03-09

有一个文档内容是这样的，Function("expression", 12345, expression)……
有很多行类似的Function,就是括号里的内容不一样，我想把括号里面的内容提取出来，应该怎么办呢？刚开始学习Perl，不懂怎么做，求大神给点指导

参考技术A $str = 'Function("expression", 12345, expression)';
if ($str =~/\(([\w," ]+)\)/)

my @m = split(',', $1);
for (@m)
s/\s+(.*?)\s+/$1/;

print join ",", @m;