yonhu 发表于 2015-12-28 11:26:41

perl的正则表达式

  “小骆驼”的“正则表达式“部分学习总结:
  
  一、匹配语法:
  1、".":任意单字符(‘\n‘除外);
  2、“*“:匹配前项0~n次;
  3、“+“:匹配前项1~n次;
  4、“?”:匹配前项0~1次;
  5.1、“\1"或"\2“:反向引用;
  5.2、“\g{N}":方向引用,如果N为负数,则为相对反响引用;
  6、“|”:“或“匹配(注意左边的条件可以屏蔽右边的条件);
  7.1、“[]”:字符集单一字符匹配;
  7.2、"[^]“:反向字符集单一字符匹配;
  8.1、“\d":(反向匹配:"\D");“[\d\D]":任意字符(包括‘\n‘);
  8.2、“\w":(反向匹配:"\W");
  8.3、"\s":[\f\t\n\r ](反向匹配:"\S");(注意最后有空格);
  8.4、"\h":[\t ];(匹配横向空白,注意最后有空格)
  8.5、"\v":[\f\n\r];(匹配纵向空白)
  8.6、“\R":跨造作系统断行匹配;
  9、"//"或“m//"或“m<>"或“m%%"等等:模式匹配;
  10.1、“/i":大小写无关修饰符;
  10.2、“/s":使能“."匹配'\n'修饰符;
  10.3、“/x":忽略模式空白与注释(‘#‘后部分);
  11.1、“^":行首锚位;
  11.2、“$":行尾锚位;(“\^\s*$\“:匹配任意空白行)
  11.3、“\b“:单词锚位(以‘\w‘为准,方向匹配\B);("\bansersion"和“\bansersion\B"匹配:ansersiona, ansersion__ab134,但前者匹配ansersion,后者则不匹配)
  12、“=~":绑定操作;
  13、"($val)":使用变量;
  14.1、“$1"或"$2"等等:"()"模式捕获变量;
  14.2、“(?:xxx)":不捕获“xxx"之“$n"中,仅做分组;
  14.3、“(?<label>xxx)":标签捕获,捕获结果位于“%+“中,引用key为“label";(方向引用“\1“和"\g{1}"需更改为\g{label}或\k<label>)(perl 5.010特性)
  14.4、“ $`; $&; $' ":匹配字符串之前部分;匹配字符串部分;匹配字符串之后部分;
  15、"{a}; {a,b}; {a,}":匹配a次;匹配a到b次;匹配a及a以上次;(无"{,b}",否则任意字符串会匹配成功——匹配0次)
  16、"*?"; "+?"; "{a,}?", "{a,b}?":量词的“非贪婪匹配“,即通过递增索引来匹配(常规情况为“贪婪匹配“,即通过递减来匹配);
  17、(?=exp);(?<=exp);(?!exp);(?<!exp):零宽断言。
  
  二、处理语法
  1、"s/a/b/":b替换首次出现的a;
  2、“s/a/b/g":b替换全部的a;
  3、界定符说明:“s/a/b/",“s{a}{b}",“s(b)",“s<a>#b#",及其它等效;
  4、修饰符:"\g"全局替换,"\i",“\x"等同“匹配语法”;"/m"多行匹配;
  5、绑定操作:同“匹配语法”;
  6、大写转换:\U:后续字符串大写替换。"s/(a)/\U$1/","s/(a)/\U$1\Exxx/"(“\E“取消“\U”对xxx影响);“\u“单一字符大写替换:s/(a)/\u\L$1/ig(首字母大写);
  7、小写转换:\L;\l同“大写转换“;
  8、字符串分割(split):@fields = split /separator/, $string;
  9、字符串拼接(join):my $result = join $glue, @pieces;(@pieces必须含2个或2个以上元素)
  
  三、其他
  1、优先级:
  

  
  2、测试程序:
  #!/usr/bin/perl
  while(<>) {
         chomp;
          if(/YOUR_PATTERN_GOES_HERE/) {
               print "Matched: |$`<$&>$'|\n";
          } else {
               print "No match: |$_|\n";
         }
}

  3、常用字符串匹配与处理:

  (1)提取字符串字母部分:
  my @words = ($text =~ /(+/g);
  my $result = join "", @words;
  (2)提取记录hash:
  my %students = ($text =~ /(?<ID>\w+)\s+(?<Name>\w+)/g);
页: [1]
查看完整版本: perl的正则表达式