전달된 2개의 인수의 차(의 절대값)을 값으로서 되돌려주는 서브루틴을 작성해여라. 동작을 확실히 하기위해, 마땅한 호출을 해보자
use strict;
use warnings;
my $num1;
my $num2;
print "Please enter the 2 number. ";
$num1 = <STDIN>;
chomp $num1;
$num2 = <STDIN>;
chomp $num2;
print "result : " . CalAbsolute ($num1, $num2) . "\n";
sub CalAbsolute {
my ($num1, $num2) = @_;
return (abs($num1 - $num2));
}
'Perl' 카테고리의 다른 글
[Perl] 재귀함수 (0) | 2014.12.19 |
---|---|
[Perl] 홀수 짝수 Subroutine (0) | 2014.12.19 |
[Perl] Subroutine (0) | 2014.12.19 |
[Perl]STDIN, while, for, if (0) | 2014.11.19 |
[Perl]for, if (0) | 2014.11.19 |