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. 文件