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

四：1：#!perl -wuse strict;sub total { my $b; foreach (@_){ $b+=$_;}$b}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(STDIN);print The total of those numbers is $user_total.\n;2:#!perl -wuse strict;sub total { my $b; foreach (@_){ $b+=$_;}$b}my @fred = (1..1000);my $fred_total = total(@fred);print The total of \@fred is $fred_total.\n;3#!perl -wsub above_average { my (@x,$s,$v); my $a=-1; foreach (@_){ $s+=$_;$v=$s/@_;} foreach (@_){ if ($_$v) { $a+=1; @x[$a]=$_; }}@x} my @fred = above_average(1..10); print \@fred is @fred\n; print (Should be 6 7 8 9 10)\n; my @barney = above_average(100, 1..10); print \@barney is @barney\n; print (Should be just 100)\n;4#!/usr/bin/perluse 5.010;sub greet {state @b ;state $a = 0;@b[$a]=@_;$a+=1;if($a=1){print Hi @b[$a-1]! You are the first one here!\n;}else{ print Hi @b[$a-1]! @b[$a-2] is also here!;}}greet(Fred);greet(Barney);5#!/usr/bin/perluse 5.010;sub greet {state @b ;state $a = 0;@b[$a]=@_;$a+=1;if($a=1){print Hi @b[$a-1]! You are the first one here!\n;}else{ print Hi @b[$a-1]! Ive seen: @b[0..$a-2]\n;}}greet(Fred);greet(Barney);greet(Wilma);greet(Betty);第五章1．将需要的文件都读取后从整个文件的最后输出到开始#!usr/bin/perl -w$n=0;while(defined($line=)){ $liner=reverse $line;@b[$n]=$liner; $n+=1;} @a=reverse @b;print @a\n;2．#!usr/bin/perl -wprint Please input characters in different lines:\n;$n=0;foreach(STDIN){chomp($_);@a[$n]=$_;$n+=1;}print 123456789012345678901234567890123456789012345678901234567890\n;foreach (@a){printf %20s\n,$_;}3，#!usr/bin/perl -wprint Please input the wide:\n;$line=STDIN;$b=($line);chomp$b;$n=0;print Please input characters in different lines:\n;foreach(STDIN){chomp($_);@a[$n]=$_;$n+=1;}print 123456789012345678901234567890123456789012345678901234567890\n;foreach (@a){printf %${b}s\n,$_;}附加题：#!usr/bin/perl -wprint Please input the wide:\n;$line=STDIN;$b=($line);chomp$b;$n=0;print Please inp