爲什麼Perl的JSON模塊不能讀取或寫入文件？

Question

我錯過了什麼，或者JSON沒有write_to_file()和read_from_file()子程序嗎？

顯然，我可以很容易地實現它們，但是因爲它們看起來很方便，我不知道它們怎麼會不在那裏。

Answer 1

是的，它缺少write_to_file()和read_from_file()函數，因爲通常情況下，您不會將JSON存儲在文件中，而是僅用於將數據發送回Web客戶端。你必須自己來實現它，正如你所說的那樣，這並不是那麼重要。

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