use Storable qw(nstore retrieve);
my @towns = qw(TownA TownB TownC);
my $file = 'serialize.dat';
nstore( \@towns, $file ) || die "$file:$!";
@towns = ();
my $towns_ref = retrieve($file) || die "$file:$!";
print $_, $/ for @{$towns_ref};
投稿日時 - 2010-07-28 01:30:33
4人が「このQ&Aが役に立った」と投票しています
OKWaveのオススメ
おすすめリンク
