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

1. [7]写一个模式，它能匹配$what 当前的内容的3 份连续拷贝。也就是说，如果$what 为fred，则此模式能匹配fredfredfred。
如果$what 为fred|barney，则此模式能匹配fredfredbarney, barneyfredfred, barneybarneybarney,或者其它的变种。（提示：
你应当在程序的顶端设置$what 的值，如my $what = ‘fred|barney’;）
2. [12]写一个程序，它可以得到当前文本文件的一个拷贝。在拷贝的文件中，字符串Fred(大小写无关)将被Larry 替换掉。
（因此，“Manfred Mann”将变成“ManLarry Mann”.）输入的文件名已经在命令行中指定（不需要询问用户），输出的
文件名是对应的输入文件名后面加上.out。
3. [8]修改上面程序，使之将Fred 由Wilma 替换，Wilma 由Fred 替换。如果输入的为fred&wilma，则输出为Wilma$Fred。
4. [10] 额外练习：写一个程序在你所有的练习的答案前加上下面这样一行：
a) ## Copyright (C) 20XX by Yours Truly
将上面一行放在“shebang”行（Perl 程序的第一行，#!/usr/bin/perl（可能随Perl 安装的位置而有所不同，但是指第一行，
译者注））下面。你应当在“源文件”中修改，但请备份文件。假定你可以在命令行中同时输入程序和需要的修改的文
件名。
5. [15]额外练习：修改第四题程序，如果程序已经有copyright 这一行，则不进行修改。提示：由<>读入的文件名可以在
$ARGV 中找到。

1、

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

my $what='fred|barney';
while(<>){
if(m/($what){3}/i){
print $_;
}
}

2、

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

$^I=".out";

while(<>){
s/Fred/Larry/ig;
print;
}

3、

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

$^I=".out";

while(<>){
unless (s/Fred/Wilma/ig)
{
s/Wilma/Fred/i;
}
print;
}

4、

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

$^I=".out";

while(<>){
print ;
if(m#usr/bin#){
print "##Copyright (C) 2009 by Yours Truly/n";
}
}

5、

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

my %a;
for (@ARGV){
$a{$_}=1;
}
while(<>){
if(/copy/i)
{
delete $a{$ARGV};
}
}

if(%a){
@ARGV=sort keys %a;
$^I=".out";
while (<>){
print ;
if(m#usr/bin#){
print "##Copyright (C) 2009 by Yours Truly/n";
}
}
}