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"; }}== 阅读全文
posted @ 2012-03-26 15:16 perlman 阅读(7274) 评论(0) 推荐(0) 编辑
