正则表达式处理文本.pptVIP

LOGO Perl 语言 * 第九章 用正则表达式处理文本 用s///替换 1 相关函数 2 列表上下文中的m// 3 * ※ △ 更强大的正则表达式 4 9.1 用s///进行替换 m// 等同于“查询（search）”功能， s ///类似于“查询并替换” * $_ =“He’s out bowling with Barney tonight.”; s/Barney/Fred/; #Barney 被Fred 替换掉 print “$_\n”; s/with (\w+)/agaist $1’s team/; print “$_\n”; #为“He’s out bowling against Fred’s team tonight” 9.1 用s///进行替换 * $_ =“green scaly dinosaur”; s/(\w+) (\w+)/$2, $1/; #现在为“scaly, green dinosaur”; s/^/huge, /; #现在为“huge, scaly, green dinosaur” s/,.*een//; #空替换,现在为“huge dinosaur” s/green/red/; #匹配失败,仍然为“huge dinosaur” s/\w+$/($`!)$ /; #现在为“huge (huge !)dinosaur” s//\s+(!\W+)/$1 /; #现在为“huge (huge!) dinosaur” s/huge/gigantic/; #现在为“gigantic (huge!) dinosaur” if (s/huge/gigantic/){ print “It matched!\n” } #s///返回布尔值 用/g进行全局替换 s///值进行一次替换，无论是否还有地方还能匹配上。 修饰/g 要求s///将所有匹配上的部分都进行替换： * $_ = “home, sweet home!”; s/home/cave/g; print “$_\n”; # “cave, sweet cave!” 应用：s///g缩减字符串中的空白。 $_ =“Input data\t may have extra whitespace.”; s/\s+/ /g; #现在是“Input data may have extra whitespace.” s/^\s+//; #将开头的空白去掉 s/\s+$//; #将结尾的空白去掉 s/^\s+|\s+$//g; #将开头，结尾的空白去掉 不同的定界符 m//和qw//，可以改变使用其他定界符 s///的分隔符也可以。但使用３个分隔符，有些不同。 * s#^https://#http://#; s{fred}{barney}; s[fred](barney); sfred#barney#; 可用替换修饰符 除了/g 修饰符外，替换操作中还可使用/i, /x, 和/s，修饰前部分的模式这些在普通的模式匹配中已经出现过的修饰符。无顺序。 * s#wilma#Wilma#gi; #所有WilmA(不分大小写),替换Wilma s{_ _END_ _.*}{ }s; #将__END__ 标记及其后面内容去掉 无损替换 如果需要同时保留原始字符串和替换后的字符串，传统的办法是先复制一份，再替换 默认状态下，s///返回的成功替换的次数 * my $original = ‘Fred ate 1 rib’; my $copy = $original; $copy =~ s/\d+ ribs?/10 ribs/; (my $copy = $original) =~ s/\d+ ribs?/10 ribs/; #先赋值，后替换 my $copy = $original =~ s/\d+ ribs?/10 ribs/r; #先替换，后赋值 大小写转换 修饰符\U 要求接下来的字符均是大写： 修饰符\L 要求接下来的字符均是小写： * $_ =“I saw Barney with Fred.”; s/(fred|barney)/\U$1/gi