[Perl] step 2 . ex

>>> 원의 반지름 구하기 예제

print"input circle's radius : ";

$rad = <STDIN>;

$circle = 2 * 3.141592 * $rad;

if($rad<0){

print"circle's circumference : 0\n";

}else{

print"circle's circumference : ".$circle."\n";

}

>> 입력 받은 두 수 곱하기 예제

print"input first number : ";

$num1 = <STDIN>;

print"input second number : ";

$num2 = <STDIN>;

print"multiply result : ".($num1*$num2)."\n";

>> 입력 받은 문자열 반복 출력 예제

print"input string : ";

chomp($str = <STDIN>);

$str.=" ";

print"input repeat count : ";

$cnt = <STDIN>;

print"repeated string : ".($str x $cnt)."\n";

초반이라 그런지 잼있고 .. 할만 하네여 -_-;