引数の受取り方法

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

Comments

comments powered by Disqus