Perl语言入门-第七章-漫游正则表达式王国-习题

1. 题目

   

    原始题目阐述有些问题，这里说明一下。第1题：匹配包含fred的行。第2题：匹配包含fred或者Fred的行。第3题：匹配包含点号的行。第4题：匹配大写字母开头的行。第5题：包含连续两个相同的非空格字符的行，比如AA，aa，￥￥，等。第6题：匹配既有wilma也有fred的行。

2. 代码与输出

第1题：匹配包含fred的行。   

 1 #-----------------------------------------------------------#
 2 # Source: Learning Perl, chapter7,exercise-1
 3 # Date:   2012-01-17
 4 # Author: xiaodongrush
 5 #-----------------------------------------------------------#
 6 use 5.010;
 7 while(<>) {
 8   if(/fred/) {
 9     chomp;
10     say $_;
11   } 
12 }
13 #-----------------------------------------------------------#
14 # /fred/匹配包含fred的字符串
15 # /^fred$/匹配包含且只包含fred的字符串
16 #-----------------------------------------------------------#

第2题：匹配包含fred或者Fred的行。   

 1 #-----------------------------------------------------------#
 2 # Source: Learning Perl, chapter7,exercise-2
 3 # Date:   2012-01-17
 4 # Author: xiaodongrush
 5 #-----------------------------------------------------------#
 6 use 5.010;
 7 while(<>) {
 8   if(/[f,F]red/) {
 9     chomp;
10     say $_;
11   }
12 }
13 #-----------------------------------------------------------#
14 # /fred|Fred/也可以
15 #-----------------------------------------------------------#

第3题：匹配包含点号的行。    

 1 #-----------------------------------------------------------#
 2 # Source: Learning Perl, chapter7,exercise-3
 3 # Date:   2012-01-17
 4 # Author: xiaodongrush
 5 #-----------------------------------------------------------#
 6 use 5.010;
 7 while(<>) {
 8   if(/\./) {
 9     chomp;
10     say $_;
11   }
12 }
13 #-----------------------------------------------------------#

第4题：匹配大写字母开头的行。

 1 #-----------------------------------------------------------#
 2 # Source: Learning Perl, chapter7,exercise-4
 3 # Date:   2012-01-17
 4 # Author: xiaodongrush
 5 #-----------------------------------------------------------#
 6 use 5.010;
 7 while(<>) {
 8   if(/^[A-Z]/) {
 9     chomp;
10     say $_;
11   }
12 }
13 #-----------------------------------------------------------#

第5题：包含连续两个相同的非空格字符的行，比如AA，aa，￥￥，等

 1 #-----------------------------------------------------------#
 2 # Source: Learning Perl, chapter7,exercise-5
 3 # Date:   2012-01-17
 4 # Author: xiaodongrush
 5 #-----------------------------------------------------------#
 6 use 5.010;
 7 while(<>) {
 8   if(/(\S)\1/) {
 9     chomp;
10     say $_;
11   }
12 }
13 #-----------------------------------------------------------#
14 # 实际上是匹配BB,aa,33，--，这样的两个相同连续字符，而不是找
15 # 字符串中的最长连续对称子串
16 #-----------------------------------------------------------#

第6题：匹配既有wilma也有fred的行。

 1 #-----------------------------------------------------------#
 2 # Source: Learning Perl, chapter7,exercise-6
 3 # Date:   2012-01-17
 4 # Author: xiaodongrush
 5 #-----------------------------------------------------------#
 6 use 5.010;
 7 while(<>) {
 8   if(/wilma.*fred|fred.*wilma/) {
 9     chomp;
10     say $_;
11   }
12 }
13 #-----------------------------------------------------------#
14 # 实际上使用两次if分别判断行是否存在fred和wilma更好，因为本题
15 # 中，假设行的fred和wilma不会重合是正确的，这两个单词没有重复
16 # 的字符，如果要匹配abb,bba这两个，那么abba就不能被
17 # /abb.*bba|bba.*abb/匹配到，但是可以通过if(/abb/) {
18 # if(/bba/) {}}匹配到。
19 #-----------------------------------------------------------#

3. 文件

    /Files/pangxiaodong/LearningPerl/ch7-answer.rar