作者wanggz ( )
看板Perl
标题Re: [问题] matching的问题
时间Wed Nov 5 10:21:19 2008
if( $str=~/($pattern1|$pattern2)/){
if($1 =~ $pattern1){
print "Pattern 1\n";
}
if($1 =~ $pattern2){
print "Pattern 2\n";
}
}
※ 引述《cutecpu (可爱中央处理器)》之铭言：
: if( $str=~/$pattern1 | $pattern2/){
: # 如果是比对到$pattern1的话
: # do blahblahblah
: # 如果是比对到$pattern2的话
: # do other blahblahblah
: }
: 问题是:我要怎麽知道是 pattern 1 还是 pattern 2比对成功??
: 谢谢
--
海豹杂记
http://sealmemory.blogspot.com/
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.172.109.245
1F：推 cutecpu:3q!! 11/05 10:29