84 - 昆虫博物館長 ★ 2024/08/11(日) 09:03:02 ID:krsw
sub SetHash {
my ($key, $value, $time, $filename) = @_;
my $hash_table = {};
if (-e $filename) {
eval {
$hash_table = retrieve($filename);
};
if ($@) {
warn "Failed to retrieve data: $@";
$hash_table = {}; # 問題が発生した場合は新しいハッシュを作成
}
} else {
$hash_table = {};
}
$hash_table->{$key} = {
value => $value,
time => $time,
};
eval {
store $hash_table, $filename;
};
if ($@) {
warn "Failed to store data: $@";
}
chmod 0600, $filename;
}
該当の関数にハンドリングをつけて対処