[Perl] Subroutine parameter

전달된 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));

}

7-b.pl