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