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

《Perl语言入门习题答案》2.12 练习1、写一个程序，计算半径为12.5的圆的周长。圆周长等于2π（π约为3.1415926）乘以半径。答案为78.5。-----------------------/home/confish/perl/girth#!/usr/bin/perl -w#this program calculate a circles girth#confish@ubuntu7.10$r=12.5;$g=12.5*2*3.1415;print the girth of the circle is $g\n;-----------------------/home/confish/perl/girth2、修改上述程序，用户可以在程序运行时输入半径。如果，用户输入12.5，则应得到和上题一样的结果。-----------------------/home/confish/perl/girthpro#!/usr/bin/perl -w#a better one to calculate girth#confish@ubuntu7.10printenter the radius of the circle\n;chomp($r=STDIN);if($r0) {printthe girth of the circle is .$r*2*3.1415.\n; }else {printnonavailable!\n;}-----------------------/home/confish/perl/girthpro3、修改上述程序，当用户输入小于0 的数字时，程序输出的周长为0，而非负数。-----------------------/home/confish/perl/girthzero#!/usr/bin/perl -w#calculate the girth and print 0 when the radius is lower than 0#confish@ubuntu7.10printenter the radius of the line\n;chomp($r=STDIN);if($r0) { printthe girth of the circle is $r*2*3.1415\n; }else { printthe girth of the circle is 0\n; }-----------------------/home/confish/perl/girthzero1、2、3：（一起实现的）#!/usr/bin/perl -w$pai=3.141592654;print Please Input Radius:;$r=STDIN;if ( $r lt 0 ){ print The circumference is 0\n; }else{ $l=$r*2*$pai; printf The circumference is %.1f\n,$l;}4、写一个程序，用户能输入2 个数字（不在同一行）。输出为这两个数的积。-----------------------/home/confish/perl/product#!/usr/bin/perl -w#print the two numbers product#confish@ubuntu7.10printenter the two numbers:\n;chomp($m=STDIN);chomp($n=STDIN);printthe product of the two numbers are .$m*$n.\n;-----------------------/home/confish/perl/product5、写一个程序，用户能输入1 个字符串和一个数字(n)（不在同一行）。输出为，n 行这个字符串，1 次1 行（提示，使用“x”操作符）。例如，如果用户输入的是“fred”和“3”,则输出为：3 行，每一行均为fred。如果输入为“fred”和“299792”,则输出为299792 行，每一行均为fred-----------------------/home/confish/perl/printer#!/usr/bin/perl -w#print a string certain times depend on the usrs input#confish@ubuntu7.10printenter a string and a number:\n;$str=STDIN;chomp($num=STDIN);print ${str}x$num;-----------------------/ho