《Perl语言入门》第四版习题（7）

1. [10]写一个程序，输出所有提到fred 的行（不要输出其它行）。如果输入字符串Fred, fredrick, Alfred，能匹配上吗？准
备一个小的文本文件，其中包含如：“fred lintsotne”以及类似的信息。使用这个文本文件作为此程序的输入，以及本节
下面练习的输入。
2. [6]修改上面的程序，允许匹配Fred。现在它能匹配，Fred, fredrick, Alfred 吗?（将这些名字加入输入文件中）
3. [6]写一个程序，输出出现句号(.)的行，忽略其它行。使用前面练习中的文件进行练习：它能找到Mr. Slate 吗？
4. [8]写一个程序，输出有一个字母大写，而非所有字母都大写的行。它能匹配Fred，而不匹配fred 和FRED 吗？
5. [8]额外的练习：写一个程序，它能输出所有同时提到wilma 和fred 的行。

 

1～3、

#!/usr/bin/perl -w
use strict;

while(<>){
chomp;
if(/fred|Fred|/./){
        print "matched--lines:$_/n";
        }
}

 

4、

if(/([A-Z])+/){
5、

if(/wilma.*fred|fred.*wilma/){