Keresgéltem, és láss csodát találtam, csak a megfelelő kulcsszavakat kell megadni, mindenki legjobb barátjának, a googlenek, hogy valami értelmes, és ugyan akkor használható eredményt mutasson.
use JSON::XS qw(encode_json decode_json);
use File::Slurp qw(read_file write_file);
my %hash;
{
my $json = encode_json \%hash;
write_file('dump.json', { binmode => ':raw' }, $json);
}
{
my $json = read_file('dump.json', { binmode => ':raw' });
%hash = %{ decode_json $json };
}
