perl入门练习（2）

小骆驼图书第二章练习；

1.

#! /usr/bin/perl -w 			#-w 加警告
$pi = 3.1415926;
$r	= 12.5;
print "the circumference of the circule is "，$pi * 2 * $r;  
#注意单引号于双引号区别

#! /usr/bin/perl 
$pi = 3.1415926
print "what is the radius? /n";
chomp($r = <STDIN>);
$cir = 2 * $pi * $r;		#使用变量的调用方法
print "the circumference of the radius $r is $cir \n";

#! /usr/bin/perl 
$pi = 3.1415926
print "what is the radius? /n";
chomp($r = <STDIN>);
if($r < 0){
	$cir = 0;
}
else {
	$cir = 2 * $pi * $r;		#使用变量的调用方法
}
print "the circumference of the radius $r is $cir \n";

#! /usr/bin/perl 
print "please enter the first num:\n";
chomp($first = <STDIN>);
print "please enter the second num:\n";
chomp($second=<STDIN>);
$result = $first * $second;
print "the result is $result ";

#! /usr/bin/perl
print "enter a string : \n";
chomp($str = <STDIN>);
print "enter the time : \n";
chomp($time = <STDIN>);
$i = 0;
print "the result is \n";
while($i < $time){
	print "the  $i 	$str  \n";
	$i += 1;
}