PERL语言入门习题

print "given name:\n"; while(<STDIN>){ chomp $_; if(exists $hash_name{$_}){ print "$_ => $hash_name{$_}\n";
}else{ print "unkown:$_\n"; } print "given name:\n"; }
#!/usr/bin/perl use strict; my @array = <STDIN>; print "1234567890"x4; print "\n"; foreach(@array) { printf "%20s",$_;
} #!/usr/bin/perl use strict; my @array = <STDIN>; my $long = shift @array; print "1234567890"x10; print "\n"; foreach(@array) { printf "%*s",$long+1,$_; }
sub above_average { my $sue = $sum / @_; my @result; foreach(@_) { if($_ > $average) { push @result , $_ ; } } return @result; }
sub total { my $sum; for(@_) { $sum += $_; } return $sum; }
#!/usr/bin/perl use strict; my @tmp = 1..1000; my $sum = &total(@tmp); print "total is : $sum.\n"; sub total { my $sum; for(@_)
{ $sum += $_; } return $sum; }
#!/usr/bin/perl use strict; 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";
1．[7] 写一个程序，类似于 cat，但保持输出的顺序关系。（某些系统的名字可能是 tac。）如果运行 此程序：./tac fred barney betty, 输出将是文件 betty 的内容，从最后一行到第一行，然后是 barney, 最后 是 fred, 同样是从最后一行到第一行。（注意使用 ./确保调用的是你自己的程序，而非系统提供的） 2．[8]写一个程序，要求用户在不同的行中输入一些字符串，将此字符串打印出来，规则是：每一条 占 20 个字符宽度，右对齐。 为了确保正确的输出，在开头打印出一串数字作为比较（帮助调试）。 注意，不要犯 19 个字符宽度的错误。例如，如果输入，hello, good-bye，则输出为： 123456789012345678901234567890123456789012345678901234567890 hello good-bye 3．[8]修改上一个程序，允许用户选择宽度，如，用户输入 30，hello, good-bye(在不同的行中)，则每 一行的宽度为 30。（提示：参阅第二章相应部分）。提示，如果选择的宽度太长，可以增加比较行的 长度。 #!/usr/bin/perl use strict; my $input; while(defined($input=<>)) { printf $input; }
sub total { my $sum; for(@_) { $sum += $_;
} return $sum; }
----------------------------------------------------------------------------------
Perl 语言入门习题_第五章
Perl 语言入门习题_第四章
1．[12]写一个名为 &total 的子程序，返回一列数字的和。提示：子程序不应当有任何的 I/O 操作；它 处理调用的参数，返回处理后的值给调用者。结合下面的程序来练习，它检测此子程序是否正常工作。 第一组数组之和我 25。 2．[5]利用上题的子程序，写一个程序计算从 1 到 1000 的数字的和 3．[18]额外的练习：写一个子程序，名为 &above_average，将一列数字作为其参数，返回所有大于平 均值的数字（提示：另外写一个子程序来计算平均值，总和除以数字的个数）。 #!/usr/bin/perl use strict; 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";
#! /usr/bin/perl use strict; my %hash_name = ("fred"=> "flintstone","barney"=> "rubble","wilma"=> "flintstone",);
print "given name:\n"; while(<STDIN>){ chomp $_; if(exists $hash_name{$_}){ print "$_ => $hash_name{$_}\n"; }else{ print "unkown:$_\n"; } print "given name:\n"; }
Perl 语言入门习题_第六章
1．[7]写一个程序，提示用户输入 given name（名），并给出其对应的 family name（姓）。使用你知 道的人名，或者表 6-1（如果你在计算机上花了太多时间，以致什么人都不认识） 2．[15]写一个程序，读入一串单词(一个单词一行)◆，输出每一个单词出现的次数。（提示：如果某 个作为数字使用值是 undefined 的，会自动将它转换为 0。）如果输入单词为 fred, barney, dino, wilma, fred（在不同行中），则输出的 fred 将为 2。作为额外的练习，可以将输出的单词按照 ASCII 排序。 #! /usr/bin/perl use strict; my %hash_name = ("fred"=> "flintstone","barney"=> "rubble","wilma"=> "flintstone",);