Perl语言,羊驼,第九-十章答案

第九章

1.

#!usr/bin/perl -w

while (<>) {

my$what='fred|barney';

chomp;

if (my($a,$b,$c)=/($what){3 /) {

print \"${a}${b}${c} is matched\\n\";

}else{

print \"No match:$_\\n\";

}

}

2.

#!usr/bin/perl -w

$^I=\".bak\";

while (<>) {

s/fred/Larry/gi;

print \"$_\";

}

3．

#!usr/bin/perl -w

$^I=\".bak\";

while (<>) {

s/fred/1f/gi;

s/wilma/2w/gi;

s/1f/Wilma/g;

s/2w/Fred/g;

print \"$_\";

}

4．

#!usr/bin/perl -w

use strict;

$^I=\".bak\";

while (<>) {

if (/^#!(.*)/){

s/^#!.*/$&\\## Copyright (C) 2015 by ly/g;

}

print;

}

5．

#!usr/bin/perl -w

use strict;

$a=$ARGV;

print @ARGV;

$^I=\".bak\";

my $n=0;

while (<>) {

if(/## Copyright/s){

@ARGV=@ARGV[$n+1..$a];

next;

}

elsif (/^#!(.*)/){

s/^#!.*/$&\\## Copyright (C) 2015 by ly/g;

}

print;

}

第九章：

1.

#!usr/bin/perl -w

$a=int(1+rand(100));

print \"please input you guess number:\\n\";

while(){

chomp($_);

if(/exit|quit| /){

last;

}elsif ($_>$a){

print \"Too high\\n\";

} elsif($_<$a){

print \"Too low\\n\";

}elsif ($_=$a){

print \"Right!\\n\";

last;}

}

2．

#!usr/bin/perl -w

use 5.010;

$a=int(1+rand(100));

print \"please input you guess number:\\n\";

while(){

chomp($_);

$b=$_;

if($b=~/open/i){$c=1;

print \"the right number is $a.\\n\";

$d=$c;

}else {

$d=$c // 1;

}

if ($d){

if(/exit|quit| /){

last;

}elsif ($_>$a){

print \"Too high\\n\";

} elsif($_<$a){

print \"Too low\\n\";

}elsif ($_=$a){

print \"Right!\\n\";

last;}

}

}

3．

#!usr/bin/perl -w

@k =keys %ENV;

$a=@k;

@k[$a]=HAHA;

@k[$a+1]=CESHI;

foreach (@k) {

$value = $ENV{$_}//'undefind value';

my $keys=$_;

print \"$keys => $value\\n\";

}

十一章。

1.

#!usr/bin/perl -w

use Module::CoreList;

my %modules = %{ $Module::CoreList::version{5.014} };

foreach $key(sort keys %modules){

$value = $modules{$key}//'default value';

print \"$key => $value\\n\";

}

2.