>>700
えーっと、これは、つまり、
func_A は、「$H が指す先」でなく、「$H そのもの」を書き換えてるから、
ということですね。

言われて、よ〜く考えると、何とか理解できたのですが、奥が深い。
ありがとうございました。


use Storable;
sub save{
my ($Hash_a,$Hash_b)=@_;
store [$Hash_a,$Hash_b],'file';
}
で保存したハッシュを保存した場合、
sub load_ng{
my($Hash_a,$Hash_b)=@_;
($Hash_a,$Hash_b)=@{retrieve('file')};
}
では間違いで、やはり、
sub load_ok{
my($Hash_a,$Hash_b)=@_;
($Hash_a_file,$Hash_b_file)=@{retrieve('file')};
%$Hash_a=%$Hash_a_file;
%$Hash_b=%$Hash_b_file;
}
と書くしかなさそうですね。