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

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 #-----------------------------------------------------------#