如何解决在 Perl 中使用 Path::Tiny 时缓存文件内容?
我有以下代码片段:
use strict;
use warnings;
use MyLibrary::JSON;
use Path::Tiny;
use File::Spec::Functions;
use MyLibrary::Constants qw(SOME_DIR);
use constant CONFIG_DIR => catfile(SOME_DIR,"path/to/file");
use constant FILENAME => 'FileName.json';
sub read_file {
my $json_parser = MyLibrary::JSON->new;
my $error;
my $parsed;
eval {
my $content = Path::Tiny::path(CONFIG_DIR,FILENAME)->slurp;
$parsed = $json_parser->decode($content);
1;
} or do {
$error = $@ || "(zombie)";
};
if ($error) {
die "Error parsing: $error";
}
return $parsed;
}
我希望读取和解析操作只执行一次并将其放入缓存中。
鉴于我使用的是 Path::Tiny
,是否有必要使用任何框架?
谢谢。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。