两道简单的Perl编程题

第一题

写一个程序，计算圆的周长。要求：
1.用户键入半径，计算相应周长
2.当用户键入的半径为负数时，周长输出为0

$pi=3.14;
print "please enter radius:\n";
chomp($r=<STDIN>);
if($r<0){
    $c=0;
}
else {
    $c=2*$pi*$r;
}
print "The perimeter is $c\n";

第二题

写一个程序，提示用户键入一个字符串和一个数字，然后以数字为重复次数，连续输出字符串。要求：
1.字符串和数字分两行键入
2.在用户键入“LuLu”和“3”时，应该会出现3行“LuLu”

print "please enter a string and a number:\n";
print "string is: ";
$string=<STDIN>; #由于需要自动换行,此处保留换行符"\n"
print "number is: ";
chomp($number=<STDIN>);
print "the result is :\n".$string x $number;