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

mil

　　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