> > できるよ > > sub KANSU { > > my ($val, $arr) = @_; > > print "変数 $val\n"; > > print "配列の最初 ${$arr}[0]\n"; > > } > > こんな感じじゃなかったか > @_って何? ΛΛ ( @_@) 参考:2004/10/20(水)16時28分32秒