引数の受取り方法 1 my ($hoge1, $hoge2, $hoge3) = @_; 1 2 3 my $hoge1 = shift; my $hoge2 = shift; my $hoge3 = shift; <p>ここ最近は、最初のやり方を好んで使っている。</p>