Question

Perl 匹配括号内的内容

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

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏5（财富值+成长值）

Answer 1

$str = 'Function("expression", 12345, expression)';
if ($str =~/\(([\w," ]+)\)/)
{
my @m = split(',', $1);
for (@m){
s/\s+(.*?)\s+/$1/;
}
print join ",", @m;
}