使用JSON模块保存机器间传输字节数

44、如何使用JSON模块代替Storable来保存和恢复机器之间发送的总字节数数据，并使用新输入更新数据？

若要使用 JSON 模块代替 Storable 来保存和恢复机器间发送的总字节数数据，并使用新输入更新数据，可按以下步骤操作：

1. 导入 JSON 模块。
2. 定义相关变量，如文件名和表示所有机器的变量。
3. 检查数据文件是否存在，若存在则读取文件内容并将其解析为 Perl 数据结构。读取文件时需以原始模式打开，并指定编码为 UTF-8。使用 decode_json 函数将 JSON 文本转换为哈希引用。
4. 处理新输入数据，跳过以 # 开头的行，将每行数据按空格分割，更新相应的字节数。
5. 处理完新输入后，将更新后的数据以 JSON 格式写入文件。写入文件时需以 UTF-8 编码打开文件，并使用 to_json 函数将数据转换为 JSON 文本，可添加 pretty 标志使输出更易读。
6. 最后可对数据进行遍历输出。

示例代码如下：

use JSON;

my $all = "**all machines**";
my $data_file = "total_bytes.json";
my $total_bytes; # 需要一个引用

if (-e $data_file) {
    local $/;
    open my $fh, '<:raw', $data_file;
    my $json_text = <$fh>;
    $total_bytes = decode_json( $json_text );
}

while (<>) {
    next if /^#/;
    my ($source, $destination, $bytes) = split;
    $total_bytes->{$source}{$destination} += $bytes;
    $total_bytes->{$source}{$all} += $bytes;
}

open my $fh, '>:utf8', $data_file;
print $fh to_json( $total_bytes, { pretty => 1 } );

foreach my $source ( sort keys %$total_bytes ) {
    print "$source\n";
    my $dest_hash = $total_bytes->{$source};
    foreach my $dest ( sort keys %$dest_hash ) {
        print "  $dest $dest_hash->{$dest}\n";