perl多处匹配用given when?还是用其他的方法啊?
如有文本
复制代码
处理后的结果为;
复制代码
就是提取aa到bb,cc到dd,ee到ff的行,用given when这语句????
若文本较大.given when效率怎么样??
- aa
- 11
- 11
- bb
- DDDDDDD
- .......
- cc
- 11
- 11
- dd
- AAAAAAAA
- .......
- ee
- 11
- 11
- ff
- LLLLLLLLLLL
- aa
- 11
- 11
- bb
- cc
- 11
- 11
- dd
- ee
- 11
- 11
- ff
若文本较大.given when效率怎么样??
作者: perlnewbie 发布时间: 2011-05-15
while (<DATA>) {
chomp;
given ($_) {
when (/^aa$/ .. /^bb$/) { push @a, $_ }
when (/^cc$/ .. /^dd$/) { push @c, $_ }
}
}
chomp;
given ($_) {
when (/^aa$/ .. /^bb$/) { push @a, $_ }
when (/^cc$/ .. /^dd$/) { push @c, $_ }
}
}
作者: zhlong8 发布时间: 2011-05-15