0258Store7.pm
04/02/27 22:01ID:xssKWf0b@EXPORT_OK=qw/store retrieve/;sub store{open my$o,">$_[1]";print$o ''.d($_[0]);
}sub retrieve{do$_[0]}sub d{my$f=shift;my$e=ref$f;$e eq'SCALAR'?"'".E($$f)."'":
$e eq'ARRAY'?'['.join(',',map{d($_)}@$f).']':$e eq'HASH'?'{'.join(',',map{my$k=
$_;$_="'".E($k)."'=>".d($f->{$k})}keys%$f).'}':"'".E($f)."'"};use Exporter;1
なんとか5行でStorable.pmと同じ使い方です(storeとretrieveだけ)。
store( \%hashとか\@array, 'data.txt' );
$hash_ref = retrieve('data.txt');