《Perl语言入门》第四版习题(7)

时间:2021-06-25 12:17:38

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/){