久々にPerlで簡単なバッチを書いていた。珍しく配列をごちゃごちゃ操作するような物です。で、配列数も多いので、サブルーチンに渡すごとにコピーを作っていたらパフォーマンスにも影響すると思って、参照渡しを使うようにしました。何故か凄い混乱。Perlのリファレンスとかを理解していないということが、改めて解りました。 #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my @x=(1,2,3,4,5); my @y=(6,7,8,9,10); print '@x'," is \n"; print Dumper(@x),"\n"; func(\@x,\@y); sub func { my ($x,$y) = @_; print '$x'." is \n"; print Dumper($x),"\n"; print '@x'." i