344(1): nobodyさん [sage] 04/10/03 17:06:58 ID:??? AAS
>>343
自分で展開していかないと面白味が分からないと思うなぁ、コレ。
外部ﾘﾝｸ[cgi]:cm.xrea.cc

258(2): Store7.pm [] 04/02/27 22:01 ID:xssKWf0b(1) AAS
package Store7;sub E{$_=shift;s/\\/\\\\/g;s/'/\\'/g;$_}@ISA='Exporter';@EXPORT=
@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');