Perl語言入門-第七章-漫遊Regex王國-習題

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