1. [8]使用模式测试程序。创造一个模式能匹配字符串match。使用字符串beforematchafter 进行测试。输出结果将其三部
分放在正确位置了吗?
#! /usr/bin/perl
while(<>){ #获取输入,从文件或者是从键盘
if(/match/){
print "It matches $`$<&$>'\n";//打印出匹配的单词,匹配到的用<>括起来
}
}
2. [7]使用模式测试程序,创造一个模式能匹配任何单词(\w 意义下的单词),但这个单词必需以字母a 结尾。它匹配wilma
而没匹配barney 吗?它匹配Mrs. Wilma Flintstone 吗? wilma&fred 呢?使用前一章习题的文件进行练习(如果没有上
述字符串,则加上它们)
#! /usr/bin/perl
while(<>){
if(/\b\w*a\b/){
print "It matches |$`<$&>$'| \n";
}
}
3. [5]修改第二题的程序,使之将由a 结尾的单词放到$1 之中。同时修改源代码,使此变量对应的值被放在单引号之中,
如$1 contains ‘Wilma’。