神奇的perl-正则表达式(2)

声明：本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载

1.     匹配
2.1         基础语法
1、 Perl使用正则表达式可实现字符串的查询和匹配。
2、 语法格式(regexp为模式串)：
$字符串变量名=~m/<regexp>/
也可以简写为$字符串变量名=~ /<regexp>/
通常如下使用:
If ($字符串变量名=~m/<regexp>/){
    #匹配成功，执行成功后的语句
}
3、示例

 

 

 

 

 

#perl4-0.pl 
my $name=”zhangsang”; 
if ($name=~m/san/){ 
#匹配成功 print “ok”;
}

 

 

 

 很显然, zhangsang是能够匹配的，因此输出为：
ok

 

2.1         匹配修饰

 

 

 

 

匹配修饰符在模式定界符之后使用

i ：忽略大小写，如:/abc/i

g ：查找所有匹配值，返回一个匹配到的列表。如：/abc/g

例如：

 

 

 

#perl4-1.pl 
my $name="hello!Beijing"; 
#我们首先使用 i，用大写“LLO”串进行匹配，由于忽略大小写，匹配是成功的。 
print "使用 i\n"; 
if ($name=~m/LLO/i){ 
#使用i，匹配成功 
print "使用 i-ok\n"; 
}
#使用 g，用“e“进行全局匹配，e 出现了2次，因此返回2个e组成的列表 
print "使用 g\n"; 
my @result=($name=~m/e/g);
 print @result;#输出匹配列表数据 
print "\n"; 
print scalar(@result);#返回@result数组大小(全局匹配成功数目)为2
。scalar(@数组变量名)返回数组大小 
print "\n"; 
if ($name=~m/e/g){
 #使用g，匹配成功2处 
print "使用 g-ok\n"; 
} 
#同时使用 g 和i进行匹配
 print "使用 g 和i\n"; 
if ($name=~m/L/gi){
 #使用了g和i匹配成功 
print "使用 g 和i-ok\n"; 
} 

 

  

输出结果如下: 

使用 i

使用 i-ok

使用 g

ee

2

使用 g-ok

使用 g 和i

使用 g 和i-ok