[Perl] Subroutine

전달된 한개의 인수의 절대값을 값으로서 되돌려주는 서브루틴을 작성하여, 

http://seungngil.tistory.com/entry/perl-%EC%A0%88%EB%8C%80%EA%B0%92-%EA%B5%AC%ED%95%98%EA%B8%B0

를 그 서브루틴을 사용하게 변경하여라.

use strict;

use warnings;

my $str;

while (1) {

    print "Please enter the number.(Enter exit at the end) ";

    $str = <STDIN>;

    chomp $str;

    

    if ($str eq "exit" || $str eq "") {

        last;

    }

    

    if ($str =~ /[a-zA-Z]/) {

        print "Not number.\n";

        next;

    }

    

    print (Absolute($str), "\n");

};

sub Absolute {

    my $str = shift;

    return abs($str);

}

7-a.pl