Perl正则表达式总结_3

#匹配任意字符，字符.匹配除换行外的多个字符，通常与*合用

#匹配指定数目的字符，字符对｛｝指定所匹配字符的出现次数。如/de{1,3}f/匹配def #deef deeef；/de{3}f/匹配deeef；/de{3,}f/匹配不少于3个e在d和f之间；/de{0,3}f/匹配不多于3个e在d和f之间。

#指定选项，字符“|”指定两个或多个选择来匹配模式。如/def|ghi/匹配def或ghi

#例：检验数字表示合法性

$number=OX1234343f;

if($number=~/^-?\d+$|^-?O[xX][\da-fA-F]+$/){

print("$number is a legal integer.\n");

}else{

print("$number is not a legal integer.\n");

}

print("\n**********************************************************\n");

#模式的部分重用，当模式中匹配相同的部分出现多次时，可用括号括起来，用\n来多次引用，以简化表达式：

#/\d{2}([\W])\d{2}\1\d{2}/匹配12-05-92 ，26.11.87， 07 04 93

#注意：不同于/(\d{2})([\W])\1\2\1/ ，这个只匹配17-17-17，而不匹配17-05-91

#转义和特定字符的执行次序，特殊字符描述

#()模式内存

#+ * ？ {} 出现次数

#^ $ \b \B 锚

#| 选项

#指定模式定界符

#缺省的模式定界符为反斜线/，但其可用字母m自行指定，如：m!/u/jqpublic/perl/prog1!

#其等价于/\/u\/jqpublic\/perl\/prog1/

#m指定！！为模式匹配符，此时不做变量替换；当用特殊字符作为定界符时，其转义功能或特殊功能即不能使用。

#模式次序变量

#在模式匹配后调用重用部分的结果可用变量$n，全部的结果用变量$&

$string="this string contains the number 225.11.";

$string=~/-?(\d+)\.?(\d+)/;

$integerpart=$1;

$decimalpart=$2;

$totalpart=$&;

print("$integerpart\n$decimalpart\n$totalpart");

print("\n**********************************************************\n");