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";
}
}
==
页:
[1]