perl语言入门级练习记录8&9章 正则表达式 匹配 替换

8．10 练习

1. [8]使用模式测试程序。创造一个模式能匹配字符串match。使用字符串beforematchafter 进行测试。输出结果将其三部分放在正确位置了吗？

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

$_="beforematchafter";
 (/(.*)(match)(.*)/)and print "Matched:[$1<$2>$3]\n" 
        or print "no match:|$_|\n";
       
1;

2. [7]使用模式测试程序，创造一个模式能匹配任何单词（\w 意义下的单词），但这个单词必需以字母a 结尾。它匹配wilma而没匹配barney 吗？它匹配Mrs. Wilma Flintstone 吗? wilma&fred 呢？使用前一章习题的文件进行练习（如果没有上述字符串，则加上它们）

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

open(FILE,$ARGV[0]) or die "Can't open : $!\n";
my @lines = <FILE>;

foreach (@lines){
   
	(/\wa$/ or /\wa\s/