perl dbmopen数据存储文件获取并创建哈希

Question

我正在从数据存储文件中获取数据并将其放入哈希文件中。但是哈希文件不包含运行脚本后数据存储文件具有的所有数据。不知道为什么我缺少在哈希文件中获取所有数据的方法。

dbmopen(%HIST, $file, 0666) or die "Couldn't open DBM: $!";
print "Size of hash: ".scalar keys %HIST;
print "\n";

print Dumper(\%HIST);

my $json = encode_json \%HIST;

open(FH, ">", "$file");
print FH $json;
close(FH);

dbmclose(%HIST);

有什么方法可以修改脚本以将所有数据存储在哈希文件中，或者在perl中我们可以使用其他任何方法来使用数据存储文件创建哈希文件。