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

hwl198212

　　声明：本神奇的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