为什么Perl'；s JSON模块未读取或写入文件？

我是否遗漏了任何内容，或者缺少

写入\u文件（）

和

读取\u文件（）

子例程

---

显然，我可以很容易地实现它们，但由于它们看起来如此方便，我想知道它们怎么可能不在那里。

是的，它缺少一个

写入文件（）

和

读取文件（）

函数，因为通常情况下，您不在文件中存储JSON，而只用于将数据发送回web客户端。您必须自己实现它，正如您所说的，这并没有那么多工作要做。

使用JSON；
use JSON;

sub read_from_file {
my $json;
{
  local $/; #Enable 'slurp' mode
  open my $fh, "<", "data_in.json";
  $json = <$fh>;
  close $fh;
}
return decode_json($json);
}

sub write_to_file {
my $data  = shift;
open my $fh, ">", "data_out.json";
print $fh encode_json($data);
close $fh;
}

从\u文件中读取\u{
我的$json；
{
本地$/#启用“slurp”模式
打开我的$fh，“，”data_out.json“；
打印$fh encode_json（$data）；
收盘价$fh；
}

JSON让您可以按照自己的方式执行整个文件管理（打开、检查权限、错误处理）。通过这种方式，您可以在数据库、网络连接等中存储/读取对象。一些解释会很好。