Perlでハッシュをファイルに書き込む方法

Perl では、 Storable モジュールを使用してハッシュをファイルに書き出すことができます。以下はサンプルコードです。

use strict;
use warnings;
use Storable;
my %hash = (
'key1' => 'value1',
'key2' => 'value2',
'key3' => 'value3'
);
store \%hash, 'hash_file.storable';

上記のコードでは、hash%hashを最初に作成します。次に、store関数を使用し、hashの参照とファイル名を引数に取って、hashをファイルhash_file.storableに書き込みます。

保存されたハッシュを取得するには、次のようにretrieve関数が使用できます。

use strict;
use warnings;
use Storable;
my $hash_ref = retrieve('hash_file.storable');
my %hash = %$hash_ref;
# 现在可以像使用普通哈希一样使用%hash
foreach my $key (keys %hash) {
my $value = $hash{$key};
print "$key: $value\n";
}

このコードでは、retrieve関数を使用して、保存されているハッシュをファイルから取得して、ハッシュ参照$hash_refに代入します。次に、ハッシュ参照を通常のハッシュ%hashに逆参照し、ループを使用してハッシュのキーと値のペアを反復処理して出力します。

Storableモジュールを利用してハッシュを保存する場合は、ファイルの内容がバイナリ形式で人間に可読ではありませんので注意してください。人間可読な形式が必要な場合は、JSONモジュールまたはYAMLモジュールによるハッシュのシリアライズとデシリアライズを検討してください。