Perl dbmopen файл хранилища данных извлекает и создает хэш - PullRequest
Новая
       8

Perl dbmopen файл хранилища данных извлекает и создает хэш

0 голосов
/ 10 сентября 2018

Я получаю данные из файлов хранилища данных и помещаю их в хэш-файл. Но хеш-файл не содержит все данные, которые есть у файла хранилища данных после запуска скрипта. Не знаю, почему мне не хватает всех данных в хэш-файле. 

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 для создания хеш-файла с использованием файла хранилища данных.

...