Leaning perl 第2章練習題答案

原文發表在網易部落格 2010-11-04 21:18:43

開始學習perl了,得多做題啊.

(讓我對perl感興趣的是小羊駝書,呃這個就是羊駝了,不過怎麼感覺跟網路上某個神獸很像啊.)

2.1-2.3 計算圓半徑計算

#!perl -w
$PI=3.141592654;
print "ENTER the semidiameter:";
$semidiameter = <STDIN> ;
chomp($semidiameter);
if ($semidiameter < 0  ){
    $semidiameter=0;
    }
$circumference=2*$PI*$semidiameter;
print "circumference is $circumference";

 

2.4計算兩個數位積
#!perl -w

print "Enter the first number(a):";
chomp($a=<STDIN>);
print "Enter the second number(b):";
chomp($b=<STDIN>);
$c=$a*$b;
print "a*b is $c";

2.5 將某個字串列印一定次數

#!perl -w
print "Enter the character to print:";
chomp($string_to_print=<STDIN>);
print "Enter times to print:";
chomp($times=<STDIN>);
$result=${string_to_print} x $times;
print "result is :$result";

    2011-05-25 22:33
    感謝大家的鼓勵,這篇文章發表在網易部落格上之後有人回複我哦.