perl解题

1.单元1 输入"Hello,world"这个程序，让它运行起来。

（你可以任意命名，但像ex1_1这样的名字就显得好些，它表示第一章第一个练习。

）ex1_1:#! /usr/bin/perlprint "Hello,world\n";2 在命令行输入perldoc -u -f atan2这个命令，注意它的输出。

=over 8=item atan2 Y,XX<atan2> X<arctangent> X<tan> X<tangent>Returns the arctangent of Y/X in the range -PI to PI.For the tangent operation, you may use the C<Math::Trig::tan>function, or use the familiar relation:sub tan { sin($_[0]) / cos($_[0]) }Note that atan2(0, 0) is not well-defined.3 运行第二个例子，观察它的输出。

（提示：注意正确输入这些标点符号）。

注意到和第二题输出的不同地方了吗？ex1_3:#! /usr/bin/perl@lines=`perldoc -u -f atan2`;foreach(@lines){s/\w<({^>] )/\U$l/g;print;}=over 8=item atan2 Y,XX<atan2> X<arctangent> X<tan> X<tangent>Returns the arctangent of Y/X in the range -PI to PI.For the tangent operation, you may use the C<Math::Trig::tan>function, or use the familiar relation:sub tan { sin($_[0]) / cos($_[0]) }Note that atan2(0, 0) is not well-defined.2.单元1 写一个程序，计算半径为12.5的圆的周长。

圆周长等于2л（л约为3.141592654）乘以半径。

答案是78.5。

ex2_1:#! /usr/bin/perl$c=2*3.141592654*12.5;print $c."\n";2 修改上述程序，用户可以在程序运行时输入半径。

如果，用户输入12.5，则应得到和上题一样的结果。

ex2_2:#! /usr/bin/perlchomp($r=<STDIN>);print $c=2*3.141592654*$r."\n";3 修改上述程序，当用户输入小于0的数字时，程序输出的周长为0，而非负数ex2_3:#! /usr/bin/perlchomp($r=<STDIN>);if ($r<0){$c=0;}else{$c=2*3.141592654*$r;}print $c."\n";4 写一个程序，用户能输入2个数字（不在同一行）。

输出为这两个数的积ex2_4:#! /usr/bin/perlchomp($n1=<STDIN>);chomp($n2=<STDIN>);print $n1*$n2."\n";5 写一个程序，用户能输入1个字符串和一个数字（n）（不在同一行）。

输出为，n行这个字符串，1次1行（提示，使用"x"操作符）。

例如，如果用户输入的是"fred"和"3",则输出为：3行，每一行均为fred。

如果输入为"fred"和"299792",则输出为 299792行，每一行均为fred。

ex2_5:#! /usr/bin/perl$string=<STDIN>;$n=<STDIN>;print $string x $n;3.单元1 写一个程序，将一些字符串（不同的行）读入一个列表中，逆向输出它。

如果是从键盘输入的，那在Unix系统中应当使用 CTRL D标明end-of-file,在Windows系统中使用CTRL Z. ex3_1:#! /usr/bin/perl@strings=<STDIN>;print reverse @strings;2 写一个程序，读入一串数字（一个数字一行），将和这些数字对应的人名输出来。

将下面的人名列表写入代码中）。

例如，当输入为1,2,4和2，则输出的为fred,betty,dino,和betty:fred betty barney dino Wilma pebbles bamm-bammex3_2:#! /usr/bin/perl@name=qw/fred betty barney dino Wilma pebbles bamm-bamm/;@n=<STDIN>;foreach(@n){print $name[$_-1]."\n";}3 写一个程序，将一些字符串（在不同的行中）读入一个列表中。

然后按ASCII顺序将它们输出来。

也就是说，当输入的字符串为fred,barney,wilma,betty,则输出为barney betty fredwilma。

分别在一行或不同的行将之输出。

ex3_3:#! /usr/bin/perl@strings=<STDIN>;chomp(@cstring=@string);@cstring1=sort @cstring;print sort @strings;print "@cstring1";4.单元1 写一个名为&total的子程序，返回一列数字的和。

提示：子程序不应当有任何的I/O操作；它处理调用的参数，返回处理后的值给调用者。

结合下面的程序来练习，它检测此子程序是否正常工作。

第一组数组之和为25。

ex4_1:#! /usr/bin/perlmy @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";sub total{$total=0;foreach(@_){$total =$_;}return $total;}2 利用上题的子程序，写一个程序计算从1到1000的数字的和ex4_2:#! /usr/bin/perl@numbers=1..1000;$numbers_total=&total(@numbers);print "The total of numbers from 1 to 1000 is $numbers_total.\n";sub total{$total=0;foreach(@_){$total =$_;}return $total;}3 额外的练习：写一个子程序，名为&above_average,将一列数字作为其参数，返回所有大于平均值的数字（提示：另外写一个子程序来计算平均值，总和除以数字的个数）。

利用下面的程序进行测试：ex4_3:#! /usr/bin/perlmy @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";sub above_average{undef(@numbers); #把@numbers的内容清空$average=&average(@_);foreach(@_){if($_>$average){push @numbers,$_;}}return @numbers;}sub average{$n=0;$total=0;foreach(@_){$total =$_;$n ;}$average=$total/$n;}5.单元1 写一个程序，类似于cat,但保持输出的顺序关系。

（某些系统的名字可能是tac。

）如果运行此程序：./tacfred barneybetty,输出将是文件betty的内容，从最后一行到第一行，然后是barney,最后是fred,同样是从最后一行到第一行。

（注意使用./确保调用的是你自己的程序，而非系统提供的)ex5_1:#! /usr/bin/perlprint reverse <>;2 写一个程序，要求用户在不同的行中输入一些字符串，将此字符串打印出来，规则是：每一条占20个字符宽度，右对齐。

为了确保正确的输出，在开头打印出一串数字作为比较（帮助调试）。

注意，不要犯19个字符宽度的错误。

例如，如果输入，hello,good-bye,则输出为：123456789012345678901234567890hellogood-byeex5_2:#! /usr/bin/perlchomp(@strings=<STDIN>);print "123456789012345678901234567890\n";foreach(@strings){printf " s\n",$_;}3 修改上一个程序，运行用户选择宽度，如，用户输入30，hello,good-bye（在不同的行中），则每一行的宽度为30。

ex5_3:#! /usr/bin/perlchomp($n=<STDIN>);chomp(@strings=<STDIN>);print "123456789012345678901234567890\n";foreach(@strings){printf "%${n}s\n",$_;}6.单元1 写一个程序，提示用户输入given name（名），并给出其对应的family name（姓）。