perl语言羊驼第四-六章答案

《perl语言羊驼第四-六章答案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、四：1:#!perl-wusestrict;subtotal{my$b;foreach(@」{$b+二$_;}$b}my@fred=qw{13579};my$fred_total=&total(@fred);print"Thetotalof@fredis$fred_total.";print"Entersomenumbersonseparatelines:”；my$user_total=total();print"Thetotalofthosenumbersis$user_total.";C：UsersAdninis

2、trator>perlD：exl-2.plThetotalofPfredis25.Ent"sonenumbersonseparatelines:223Thetotalofthosenumbersis7.2:#Iperl-wusestrict;subtotal{my$b;foreach(@」{$b+=$_;}$b}my@fred=(1..1000);my$fred_total=&total(@fred);print"Thetotalof@fredis$fred_total.H;C:UsersAdninistrator>perlD:e

3、xl~2.plThetotalofPfredis500500.#!perl-wsubabove_average{my(@x,$s,$v);my$a=-l;foreach(@」{$s+=$_;$v=$s/@_;}foreach(@」{讦($_>$v){$a+=l;@x[$a]=$_;}}@x}my@fred=above_average(1..10);print"@fredis@fred";print"(Shouldbe678910)H;my@barney=above_average(100,1..10);printH@barneyis

4、@barney”；printH(Shouldbejust100)n;78910678910>100just100〉C：UsersPdministraD:exl-3.plPfredis6CShouldbeGbarneyisCShouldbe4#!/usr/bin/perluse5.010;subgreet{state@b;state$a=0;@b[$a]=@_;$a+=l;if($a<=l){print"Hi@b[$a-l]!Youarethefirstonehere!";}else{printHHi@b[$a-l]!@b[$a

5、-2]isalsohere!";}}&greet("Fred");&greet("Barney");C：UsersAdninistrator>perlD：exl-3.plHiFred?Vouarethefirstonehere?HiBarney?Fredisalsohere?#!/usr/bin/perluse5.010;subgreet{state@b;state$a=0;@b[$a]=@_;$a+=l;if($a<=l){print"Hi@b[$a-l]!Youarethefirstonehere!";}else{print"Hi

6、@b[$a-l]!I'veseen:@b[0..$a-2]";}}&greetC'Fred");&greet("Barney");&greetCWilma");&greet("Betty");C：UsersAdninisor>perlD:exl-3.plHiFred?Youarethefirstonehere?HiBarnei/?19ueseen:FredHiWilna?IJveseen:FredBarneyHiBetty?IJueseen:FredBarneyWilna第五章1.将需要的文件都读取后从整个文件的最后输出到开始#!us

7、r/bin/perl・w$n=0;while(defined($line=<>)){$liner=reverse$line;@b[$n]=$liner;$n+=l;}@a=reverse@b;print"@a";D：>perloxlT.pltestl.txttest2.txttest3.txt987654321ihgfedcbahhhahhahretniwremmusni厂ps2.#!usr/bin/perl-wprint"Pleaseinputcharactersindifferentlines:";$n=0;foreach(

8、DIN>){chomp($_);@a[$n]=$_;$n+=l;}print"123456789012345678901234567890123456