如何持久化大型Perl对象以便在运行之间重用?

$HashRef :

# Write
open(FILE, ">your_filename") || die "Can not open: $!";
print FILE Data::Dumper->Dump([$HashRef],["HashRef"]);
close(FILE) || die "Error closing file: $!";

# Read
my $HashRef;
$HashRef = eval { do "your_filename" };
   # Might need "no strict;" before and "use strict;" after "do"
die "Error reading: $@" if $@;
# Now $HashRef is what it was before writing

另一个好的选择是使用 Storable . 从吊舱:

use Storable;
store \%table, 'file';
$hashref = retrieve('file');

Chapter 14 "Persistence" of brian d foy's "Mastering Perl" book

Storable . 这是一个懒惰的答案( Prefer nstore over store. )

eval .

好的答案是:您真的想学习如何使用适合于诸如 XML::Twig XML::LibXML 为了加快解析速度,您不需要这个缓存猴子代码。