use Data::Dump qw/pp/; #... if ( -s $file and ! $do_rebuild ) { warn "reading cache"; $h_func_pod = do $file; #warn pp '$h_func_pod: ', $h_func_pod; } else { # rebuild cache $h_func_pod = parse_by_process(); warn "dumping to cache"; open my $cache, '>', $file; print $cache ( '+' . pp $h_func_pod); # +{ is never a block close $cache; }
Cheers Rolf
(addicted to the Perl Programming Language and ☆☆☆☆ :)
Wikisyntax for the Monastery
In reply to Re: How to save and reload my hash
by LanX
in thread How to save and reload my hash
by lepetitalbert
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |