Почему модуль Perl JSON не читает и не записывает файлы?

Question

Я что-то упускаю или JSON не хватает подпрограмм write_to_file() и read_from_file()?

Очевидно, я могу легко их реализовать, но, как они кажутся такими удобными, мне интереснокак это может быть, их там нет.

Answer 1

Да, ему не хватает функций write_to_file() и read_from_file(), потому что обычно вы не сохраняете JSON в файлах, а используете его только для отправки данных обратно веб-клиенту. Вы должны реализовать это самостоятельно, что, как вы правильно сказали, не так уж и много.

Answer 2

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