@town = ("Aタウン","Bタウン","Cタウン");

質問

@town = ("Aタウン","Bタウン","Cタウン");

上のような配列の値を、テキストファイルに保存して読み込みたいのですが、どうしたらよいのか分かりません。

誰か詳しい方、よろしくお願いします。

回答No.1

_--_1l1_1_ · ベストアンサー

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};