Perl语言入门(第四版)习题答案.docx

Perl语言入门习题答案2.12 练习1、写一个程序，计算半径为12.5的圆的周长。圆周长等于2（约为3.1415926）乘以半径。答案为78.5。-/home/confish/perl/girth#!/usr/bin/perl -w#this program calculate a circles girth#confishubuntu7.10$r=12.5;$g=12.5*2*3.1415;print the girth of the circle is $gn;-/home/confish/perl/girth 2、修改上述程序，用户可以在程序运行时输入半径。如果，用户输入12.5，则应得到和上题一样的结果。 -/home/confish/perl/girthpro#!/usr/bin/perl -w#a better one to calculate girth#confishubuntu7.10printenter the radius of the circlen;chomp($r=);if($r0) printthe girth of the circle is .$r*2*3.1415.n; else printnonavailable!n; -/home/confish/perl/girthpro3、修改上述程序，当用户输入小于0 的数字时，程序输出的周长为0，而非负数。-/home/confish/perl/girthzero#!/usr/bin/perl -w#calculate the girth and print 0 when the radius is lower than 0#confishubuntu7.10printenter the radius of the linen;chomp($r=);if($r0) printthe girth of the circle is $r*2*3.1415n; else printthe girth of the circle is 0n; -/home/confish/perl/girthzero1、2、3：（一起实现的）#!/usr/bin/perl -w$pai=3.141592654;print Please Input Radius:;$r=;if ( $r lt 0 ) print The circumference is 0n; else $l=$r*2*$pai; printf The circumference is %.1fn,$l;4、写一个程序，用户能输入2 个数字（不在同一行）。输出为这两个数的积。 -/home/confish/perl/product#!/usr/bin/perl -w#print the two numbers product#confishubuntu7.10printenter the two numbers:n;chomp($m=);chomp($n=);printthe product of the two numbers are .$m*$n.n;-/home/confish/perl/product5、写一个程序，用户能输入1 个字符串和一个数字(n)（不在同一行）。输出为，n 行这个字符串，1 次1 行（提示，使用“x”操作符）。例如，如果用户输入的是“fred”和“3”,则输出为：3 行，每一行均为fred。如果输入为“fred”和“299792”,则输出为299792 行，每一行均为fred-/home/confish/perl/printer#!/usr/bin/perl -w#print a string certain times depend on the usrs input#confishubuntu7.10printenter a string and a number:n;$str=;chomp($num=);print $strx$num;-/home/confish/perl/printer3.9 练习1、写一个程序，将一些字符串（不同的行）读入一个列表中，逆向输出它。如果是从键盘输入的，那在Unix 系统中应当使用CTRL+D 表明end-of-file，在Windows 系统中使用CTRL+Z. -/home/confish/reprint#!/usr/bin/perl -w#read some input and print them in reverse sequence#confishubuntu7.10print enter the string please:n;str=reverse ;print nthe reverse strings are:nstr;-/home/confish/reprint2、写一个程序，读入一串数字（一个数字一行），将和这些数字对应的人名（下面列出的）输出来。（将下面的人名列表写入代码中）。fred betty barney dino Wilma pebbles bamm-bamm例如，当输入为1，2，4 和2，则输出的为fred, betty, dino, 和betty -/home/confish/num_to_name#!/usr/bin/perl -w#read some numbers and output the match name#confishubuntu7.10 $i=0;names=qw /fred betty barney dino Wilma pebbles bamm-bamm/;printenter the numbers please:n;chomp(nums=);foreach(nums) re=names; while($i ne $_) $n=shift( re); $i+; $i=0; print $n,n;-/home/confish/num_to_name3、写一个程序，将一些字符串（在不同的行中）读入一个列表中。然后按ASCII 顺序将它们输出来。也就是说，当输入的字符串为fred, barney, wilma, betty，则输出为barney betty fred wilma。分别在一行或不同的行将之输出。-/home/confish/sort_str#!/usr/bin/perl -w#read some strings and sort them in ASCII#confishubuntu7.10chomp(str=sort);#str=sort; will print them in diffrent linesprint str,n;-/home/confish/sort_str4.11练习1、写一个名为&total 的子程序，返回一列数字的和。提示：子程序不应当有任何的I/O 操作；它处理调用的参数，返回处理后的值给调用者。结合下面的程序来练习，它检测此子程序是否正常工作。第一组数组之和25。my fred = qw 1 3 5 7 9 ;my $fred_total = &total(fred);print The total of fred is $fred_total.n;print Enter some numbers on separate lines: ;my $user_total = &total();print The total of those numbers is $user_total.n; -/home/confish/perl/subr#!/usr/bin/perl -w#a subroutine named total returns sum of numbers#confishubuntu7.10sub total foreach $n(0.$#_) $sum+=$_$n; $sum; myfred=qw1 3 5 7 9;my $fred_total=&total(fred);printThe total of fred is $fred_total.n;printEnter some numbers on separate lines:n;my $user_total=&total();printThe total of those numbers is $user_total.n;-/home/confish/perl/subr2、利用上题的子程序，写一个程序计算从1 到1000 的数字的和。-/home/confish/perl/suber#!/usr/bin/perl -w#use the subroutine in last program to get the sum of 1.1000#confishubuntu7.10sub total foreach $n(0.$#_) $sum+=$_$n; $sum; num=(1.1000);$sum=&total(num);printThe sum of 1.1000 is $sumn;-/home/confish/perl/suber3、额外的练习：写一个子程序，名为&above_average，将一列数字作为其参数，返回所有大于平均值的数字（提示：另外写一个子程序来计算平均值，总和除以数字的个数）。利用下面的程序进行测试：my fred = &above_average(1.10);print fred is fredn;print (Should be 6 7 8 9 10)n;my barney = &above_average(100, 1.10);print barney is barneyn;print (Should be just 100)n; -/home/confish/perl/aver#!/usr/bin/perl -w#to print the number which is larger than the average#in some numbers#confishubuntu7.10sub average foreach $n(0.$#_) $sum+=$_$n; $average=$sum/($#_+1); sub above_average num=_; aba=(); $av=&average(num); foreach $n(0.$#_) if($_$n$av) push ( aba,$_$n); aba; my fred=&above_average(1.10);printfred is fredn;print(Shuold be 6 7 8 9 10)n;my barney=&above_average(100,1.10);printbarney is barneyn;print(Should be just 100)n;-/home/confish/perl/aver5.11 练习1、写一个程序，类似于 cat，但保持输出的顺序关系。（某些系统的名字可能是 tac 。） 如果运行此程序：./tac fred barney betty, 输出将是文件 betty 的内容，从最后一行到第一行，然后是 barney, 最后是 fred, 同样是从最后一行到第一行。（注意使用 ./ 确保调用的是你自己的程序，而非系统提供的）-/home/confish/perl/tac#!/usr/bin/perl -w#a prog same as cat but reverse the string#confishubuntu7.10ARGV=reverse ARGV;a=reverse;print a;-/home/confish/perl/tac2、写一个程序，要求用户在不同的行中输入一些字符串，将此字符串打印出来，规则是：每一条占20 个字符宽度，右对齐。为了确保正确的输出，在开头打印出一串数字作为比较（帮助调试）。注意，不要犯19 个字符宽度的错误。例如，如果输入，hello, good-bye，则输出为：123456789012345678901234567890123456789012345678901234567890 hello good-bye-/home/confish/perl/20str#!/usr/bin/perl -w#a prog that print the strings as 20 words flush right#confishubuntu7.10str=;while($i!=5) foreach(0.9) print; $i+; printn;foreach(str) printf %21s,$_; -/home/confish/perl/20str3、修改上一个程序，允许用户选择宽度，如，用户输入30，hello, good-bye(在不同的行中)，则每一行的宽度为30。（提示：参阅第二章相应部分）。提示，如果选择的宽度太长，可以增加比较行的长度。 -/home/confish/perl/20strpro#!/usr/bin/perl -w#a prog print the strings as number usr apionted words flush right#confishubuntu7.10str=;while($i!=5) foreach(0.9) print; $i+; print n;$num=shift str;chomp $num;$conv=%.+$num.s;foreach(str) printf $conv,$_; -/home/confish/perl/20strpro6.5 练习1、写一个程序，提示用户输入 given name（名），并给出其对应的 family name（姓）。 使用你知道的人名，或者表 6- 1（如果你在计算机上花了太多时间，以致什么人都不认识）：表 6 - 1 样本数据输入 输出fred flintstonebarney rubblewilma flintstone-/home/confish/perl/hash#!/usr/bin/perl -w#hashs that print the names family name#confishubuntu7.10$family_namefred=flintstone;$family_namebarney=rubble;$family_namewilma=flintstone;print enter the given name please:n;chomp($gn=);print family name for $gn is $family_name$gnn;-/home/confish/perl/hash2、写一个程序，读入一串单词( 一个单词一行) ，输出每一个单词出现的次数。（提示：如果某个作为数字使用值是undefined 的，会自动将它转换为 0。）如果输入单词为 fred, barney, dino, wilma , fred（在不同行中）， 则输出的 fred 将为-/home/confish/perl/counts#!/usr/bin/perl -w#hashs that counts the appearance times of the word#print sorted#confishubuntu7.10print enter the word please:n;foreach() $counts$_+; $counts$_.=n; sort %counts;print %counts;-/home/confish/perl/counts 7.4 练习1、写一个程序，输出所有提到 fred 的行（不要输出其它行）。如果输入字符串 Fred, f redrick, Alfred，能匹配上吗？准备一个小的文本文件，其中包含如：“ fred lintsotne” 以及类似的信息。使用这个文本文件作为此程序的输入，以及本节下面练习的输入。-/home/confish/perl/pfred#!/usr/bin/perl -w#prog print the line which contains fred#confishubuntu7.10foreach() if(/fred/) print $_; -/home/confish/perl/pfred2、修改上面的程序，允许匹配 Fred。现在它能匹配，Fred, f redrick , Alfred 吗? （将这些名字加入输入文件中）-/home/confish/perl/pffred#!/usr/bin/perl -w#prog print the line which contains fred or Fred#confishubuntu7.10foreach() if(/fred|Fred/) print $_; -/home/confish/perl/pffred3、写一个程序，输出出现句号( . ) 的行，忽略其它行。使用前面练习中的文件进行练习：它能找到 Mr. Slate 吗？-/home/confish/perl/pp#!/usr/bin/perl -w#prog print the line which contains a point#confishubuntu7.10foreach() if(/./) print $_; -/home/confish/perl/pp4、写一个程序，输出有一个字母大写，而非所有字母都大写的行。它能匹配 Fred ，而不匹配 fred 和 FRED 吗？-/home/confish/perl/plg#!/usr/bin/perl -w#print the line which contains not capitals only#confishubuntu7.10foreach() if(/a-zA-Z|A-Z+a-z/) print $_; -/home/confish/perl/plg5、额外的练习：写一个程序，它能输出所有同时提到 wilma 和 fred 的行。-/home/confish/perl/pfw#!/usr/bin/perl -w#print a line which contains fred and wilma#confishubuntu7.10foreach() if(/wilma.+fred|fred.+wilma/) print $_; -/home/confish/perl/pfw8.10 练习1、使用模式测试程序。 创造一个模式能匹配字符串 match。 使用字符串 beforematchafter 进行测试。 输出结果将其三部分放在正确位置了吗？-/home/confish/perl/mm#!/usr/bin/perl -w#match match#confishubuntu7.10while() chomp; if(/match/) print Matched:|$|n; else print no match:|$_|n; -/home/confish/perl/mm2、使用模式测试程序， 创造一个模式能匹配任何单词 （ w 意义下的单词）， 但这个单词必需以字母 a 结尾。 它匹配 wilma而没匹配 barney 吗？它匹配 Mrs. Wilma Flintstone 吗? wilma&fred 呢？使用前一章习题的文件进行练习（如果没有上述字符串，则加上它们）-/home/confish/perl/ma#!/usr/bin/perl -w#match word ends with a#confishubuntu7.10while() chomp; if(/ab/) print Matched:|$|n; else print no match:|$_|n; -/home/confish/perl/ma3、修改第二题的程序，使之将由 a 结尾的单词放到$1 之中。同时修改源代码，使此变量对应的值被放在单引号之中，如$1 contains Wilma 。-/home/confish/perl/mapro#!/usr/bin/perl -w #match word end with a and storage it#confishubuntu7.10while() chomp; if(/(a$)/) my $temp=$1; print $1 contains $&$n; else print no match:|$_|n; -/home/confish/perl/mapro4、额外练习：修改第三题程序，使之能捕捉由 a 结尾的单词之后的 5 个字符（如果有那么多），并将之放入一个独立变量中。例如，如果输入的是 I saw Wilma yester day, 则紧接的 5 个字符是 yest（前有空格）。如果输入是 I , Wilma! ，则只有一个字符。它现在还能匹配 wilma 吗？-/home/confish/perl/mwa#!/usr/bin/perl -w#match a word end with a and print the next five character#confishubuntu7.10while() if(/ab/) my $temp=$; if($temp=/.0,5/) my $match=$&; print $match; else print no match:|$_|n; -/home/confish/perl/mwa5、写一个程序（不是测试程序）， 能输出任何由空白结尾的输入行（非换行符）。 在输出的结尾处放置一个标记符，使之能标记出空白。-/home/confish/perl/ms#!/usr/bin/perl -w#match a space#confishubuntu7.10while() if(/ +$/) print; -/home/confish/perl/ms9.6 练习1、写一个模式， 它能匹配$what 当前的内容的 3 份连续拷贝。也就是说， 如果$what 为 fred， 则此模式能匹配 fredfredfred 。如果$what 为 fred|barney ，则此模式能匹配 fredfredbarney, barneyfredfred, barneybarneybarney , 或者其它的变种。（提示：你应当在程序的顶端设置$what 的值，如 my $what = fred|barney ;）-/home/confish/perl/sfb#!/usr/bin/perl -w #match and replace fred three times#confishubuntu7.10my $what=fred|barney;if(fredbarneybarney=/($what)3/)print $./.$&./.$.n;-/home/confish/perl/sfb2、写一个程序， 它可以得到当前文本文件的一个拷贝。 在拷贝的文件中， 字符串 Fred( 大小写无关) 将被 Larry 替换掉。（因此，“ Manfred Mann” 将变成 “ ManLarry Mann” . ）输入的文件名已经在命令行中指定（不需要询问用户），输出的文件名是对应的输入文件名后面加上.out。-/home/confish/perl/sfl#!/usr/bin/perl -w #match fred to Larry#confishubuntu7.10$I=.out;while() s/fred/Larry/i; print; -/home/confish/perl/sfl3、修改上面程序， 使之将 Fred 由 Wilma 替换， Wilma 由 Fred 替换。 如果输入的为 fred&wilma， 则输出为 Wilma$Fred。-/home/confish/perl/addc#!/usr/bin/perl -w#add copyright#confishubuntu7.10$I=.out;$a=/usr/bin/perl -w n #Copyright(C) 2008 by Yours Truly confish;while() s#/usr/bin/perls+-w#$a#i; print; -/home/confish/perl/addc4、额外练习：写一个程序在你所有的练习的答案前加上下面这样一行：a) # Copyright (C) 20XX by Yours Truly将上面一行放在“ shebang” 行（Perl 程序的第一行，#!/usr/bin/perl （可能随 Perl 安装的位置而有所不同， 但是指第一行，译者注） ）下面。你应当在“源文件”中修改，但请备份文件。假定你可以在命令行中同时输入程序和需要的修改的文件名。10.10 练习1、写一个程序，能重复要求用户猜测某个在 1 到 100 之间的数字，直到猜对为止。你的程序应当能随机的产生一个数字，使用公式 int(1 + rand 100)。当用户猜测错误时，程序应该回应“ Too high” 或者 “ Too low ” 。如果用户输入 quit或 exit ，或者回车时，程序应立即退出。如果用户猜测正确，程序也退出。-/home/confish/perl/gn#!/usr/bin/perl -w#a game to guess a number#confishubuntu7.10my $y=int(1+rand(100);printenter a number please:n;while(chomp($t=) if($t ne exit&$t nequit ) if($t$y) printtow hign; elsif($t$such) $such=-M; $file=$_; print$file has exits $such daysn; else print no input filesn; -/home/confish/perl/et12.14 练习1、写一个程序要求用户输入一个目录名，再改变到那个目录去。如果用户输入的值是空白，则转变到他/她的主目录去。改变后，将这个目录下的普通内容（不包括有点（. ）开头的项）按照字母顺序列出来。（提示：使用目录句柄还是 glob 更方便？）如果没有成功改变目录，提示用户，但不要尝试输出目录里的内容。#! /usr/bin/env perl -wuse strict;#Date:2005-05-31#ex12_1if (ARGV) chdir $ARGV0;else chdir ;_=glob *;print _;2、修改程序，使之包含所有的文件，不仅仅是那些不以点( . ) 开头的文件。#! /usr/bin/env perl -wuse strict;#Date:2005-05-31#ex12_1if (ARGV) chdir $ARGV0;else chdir ;_=glob .* *;print