Perl之正则表达式

  正则表达式(regular expression)描述了一种字符串匹配的模式，可以用来检查一个串是否含有某种子串、将匹配的子串做替换或者从某个串中取出符合某个条件的子串等。
  Perl语言的正则表达式功能非常强大，基本上是常用语言中最强大的，很多语言设计正则式支持的时候都参考Perl的正则表达式。
  Perl的正则表达式的三种形式，分别是匹配、替换和转化：
  匹配：m//（还可以简写为//，略去m）
  替换：s///
  转化：tr///
  这三种形式一般都和 =~ 或 !~ 搭配使用， =~ 表示相匹配，!~ 表示不匹配。

1.匹配操作符

  匹配操作符 m// 用于匹配一个字符串语句或者一个正则表达式。
  例如，匹配标量str中的字符串”123”;

#! /usr/bin/perl $str="正则表达式使用,匹配参数123,456,798!"; if($str=~"123")#=~表示相匹配 { 	printf("匹配成功\n"); } else { 	printf("匹配失败\n"); } 

2.模式匹配修饰符

正则表达式变量
   perl处理完后会给匹配到的值存在三个特殊变量名:
   $`: 匹配部分的前一部分字符串
   $&: 匹配的字符串
   $': 还没有匹配的剩余字符串

示例：

#! /usr/bin/perl $str="正则表达式使用,匹配参数123,456,798!"; print "原始字符串:$str\n"; if($str=~"123")#=~表示相匹配 { 	 	printf("匹配成功,匹配字符串之前内容:$`\n"); 	printf("要匹配的字符串:$&\n"); 	printf("匹配的字符串之后的内容:$'\n"); } else { 	printf("匹配失败\n"); } 

不区分大小写示例：

#! /usr/bin/perl $str="hello,welcomewByQ"; if($str=~/WBYQ/i) #i表示不区分大小写 { 	print "匹配成功，匹配字符串:$&\n"; 	print "匹配前面字符:$`"; } 

示例：

[wbyq@wbyq 0709]$ ./1.pl 匹配成功，匹配字符串:wByQ 匹配前面字符:hello,welcome 

3.替换操作符

  替换操作符s///是匹配操作符的扩展，使用新的字符串替换指定的字符串。基本格式如下：
  格式：s/PATTERN/REPLACEMENT/;
  PATTERN 为替换内容；
  REPLACEMENT 为要替换的字符串；
  示例：

#! /usr/bin/perl $str="hello,wbyq,welcome!"; print "$str\n"; $str=~s/wbyq/WBYQ/; #将"wbyq"替换为"WBYQ" print "$str\n"; 

运行效果：

[wbyq@wbyq 0709]$ ./1.pl hello,wbyq,welcome! hello,WBYQ,welcome! 

4.替换操作修饰符

  替换操作修饰符如下表所示：

5.转化操作符

  以下是转化操作符相关的修饰符：

#! /usr/bin/perl $str="hello,welcomewByQ"; $str=~tr/a-z/A-Z/;#将所有的小写转换为大写 print "$str\n"; $str="hello,aaa,bbb,ccc,DDD"; print "原字符串:$str\n"; $str=~tr/a-z,A-Z//s; #将重复的字符删除 print "原字符串:$str\n"; 

运行效果：

[wbyq@wbyq 0709]$ ./1.pl HELLO,WELCOMEWBYQ 原字符串:hello,aaa,bbb,ccc,DDD 原字符串:helo,a,b,c,D