引数でハッシュを渡す
サブルーチンでハッシュを渡してるつもりがうまくいっておらず、調べたらどうもこれではいけないらしい。
sub hash { my %hash = shift; .... }
いろいろ調べたが参照渡しでこんな風にすることにした。
sub hash(\%) { my $hash = shift; my %hash = %{$hash}; .... }
参照渡しの意味がないですね・・・
でもほかにやり方がわからないんだもん。
サブルーチンでハッシュを渡してるつもりがうまくいっておらず、調べたらどうもこれではいけないらしい。
sub hash { my %hash = shift; .... }
いろいろ調べたが参照渡しでこんな風にすることにした。
sub hash(\%) { my $hash = shift; my %hash = %{$hash}; .... }
参照渡しの意味がないですね・・・
でもほかにやり方がわからないんだもん。