サブルーチン 改良

#19 サブルーチンを改良してみよう

use warnings;
use strict;

# サブルーチン

sub max{
        my $max = shift(@_); #@_
        foreach (@_) {
                $max = $_ if $_ > $max;
        }
        return $max;
}

print max(2,8,100,23,46);

サブルーチンを作成。

一番大きい値が表示されるように修正。

    100

の表示を確認。