perl正則表達式返回多個匹配

返回()中的文本。

方法一：

sub test {
    my $text = '(zdd)(autumn)(123)(456)';
    while ($text =~ /\((.*?)\)/g) {
        print $1, "\n";
    }
}

方法二：

sub test1 {
    my $text = '(zdd)(autumn)(123)(456)';
    my @matches = ($text =~ /\((.*?)\)/g) ;
    foreach my $match (@matches) {
        print $match, "\n";
    }
}

==