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

《Perl语言入门(第四版)习题答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、.word可编辑.《Perl语言入门习题答案》2.12练习1、写一个程序，计算半径为12.5的圆的周长。圆周长等于2π（π约为3.1415926）乘以半径。答案为78.5。-----------------------/home/confish/perl/girth#!/usr/bin/perl-w#thisprogramcalculateacircle'sgirth#confish@ubuntu7.10$r=12.5;$g=12.5*2*3.1415;print"thegirthofthecircleis$g";------

2、-----------------/home/confish/perl/girth2、修改上述程序，用户可以在程序运行时输入半径。如果，用户输入12.5，则应得到和上题一样的结果。-----------------------/home/confish/perl/girthpro#!/usr/bin/perl-w#abetteronetocalculategirth#confish@ubuntu7.10.专业.专注..word可编辑.print"entertheradiusofthecircle";chomp($r=

3、N>);if($r>0){print"thegirthofthecircleis".$r*2*3.1415."";}else{print"nonavailable!";}-----------------------/home/confish/perl/girthpro3、修改上述程序，当用户输入小于0的数字时，程序输出的周长为0，而非负数。-----------------------/home/confish/perl/girthzero#!/usr/bin/perl-w#calculatethegirthandpri

4、nt0whentheradiusislowerthan0#confish@ubuntu7.10print"entertheradiusoftheline";chomp($r=);if($r>0){.专业.专注..word可编辑.print"thegirthofthecircleis$r*2*3.1415";}else{print"thegirthofthecircleis0";}-----------------------/home/confish/perl/girthzero1、2、3：（一起实现的）

5、#!/usr/bin/perl-w$pai=3.141592654;print"PleaseInputRadius:";$r=;if($rlt0){print"Thecircumferenceis0";}else{$l=$r*2*$pai;printf"Thecircumferenceis%.1f",$l;}4、写一个程序，用户能输入2个数字（不在同一行）。输出为这两个数的积。-----------------------/home/confish/perl/product.专业.专注..word可编辑.#!

6、/usr/bin/perl-w#printthetwonumber'sproduct#confish@ubuntu7.10print"enterthetwonumbers:";chomp($m=);chomp($n=);print"theproductofthetwonumbersare".$m*$n."";-----------------------/home/confish/perl/product5、写一个程序，用户能输入1个字符串和一个数字(n)（不在同一行）。输出为，n行这个字符串，

7、1次1行（提示，使用“x”操作符）。例如，如果用户输入的是“fred”和“3”,则输出为：3行，每一行均为fred。如果输入为“fred”和“299792”,则输出为299792行，每一行均为fred-----------------------/home/confish/perl/printer#!/usr/bin/perl-w#printastringcertaintimesdependontheusr'sinput#confish@ubuntu7.10print"enterastringandanumber:";$str

8、=;chomp($num=);print${str}x$num;-----------------------/home/confish/perl/printer.专业.专注..word可编辑.3.9练习1、写一个程序，