《Perl语言入门》第四版习题（2）

1. 写一个程序，计算半径为12.5的圆的周长。圆周长等于2π（π约为3.1415926）乘以半径。答案为78.5。
2. 修改上述程序，用户可以在程序运行时输入半径。如果，用户输入12.5，则应得到和上题一样的结果。
3. 修改上述程序，当用户输入小于0 的数字时，程序输出的周长为0，而非负数。
4. 写一个程序，用户能输入2 个数字（不在同一行）。输出为这两个数的积。
5. 写一个程序，用户能输入1 个字符串和一个数字(n)（不在同一行）。输出为，n 行这个字符串，1 次1 行（提示，使用“x”操作符）。例如，如果用户输入的是“fred”和“3”,则输出为：3 行，每一行均为fred。如果输入为“fred”和“299792”,则输出为299792 行，每一行均为fred。

1、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：
#!/usr/bin/perl -w
print "Please Input Number1:";
$num1=<STDIN>;
print "Please Input Number2:";
$num2=<STDIN>;
$product=$num1*$num2;
print "The Product Is: $product/n";

5：
#!/usr/bin/perl -w
print "Please Input a character string:";
$character=<STDIN>;
print "Please Input a Number:";
$number=<STDIN>;
$output=$character x $number;
print $output;