Perl - 複雑なデータ構造の操作 - 複雑なデータをファイルに保存、ハッシュ、ハッシュリファレンス、JSONモジュール、サブルーチン(to_json, from_json)、

続・初めてのPerl 改訂第2版
楽天ブックス Yahoo!
原著: Intermediate Perl:
Beyond The Basics of Learning Perl

開発環境

• macOS Mojave - Apple (OS)
• Emacs (Text Editor)
• Windows 10 Pro (OS)
• Strawberry Perl (WindowsのPerlの言語処理系)
• Visual Studio Code (Text Editor)
• Perl 5.30 (プログラミング言語)

続・初めてのPerl 改訂第2版 (Randal L. Schwartz(著)、brian d foy(著)、Tom Phoenix(著)、伊藤 直也(監修)、長尾 高弘(翻訳)、オライリージャパン)の6章(複雑なデータ構造の操作)、6.7(練習問題)2の解答を求めてみる。

コード

#!/usr/bin/env perl
use strict;
use warnings;
use v5.30;
use JSON qw(to_json from_json);

my $filename = 'log.json';
my %total_bytes;

if (-e $filename) {
 open my $in_fh, '<', $filename or die "can't open $filename: $!";
 my $json_string = '';
 while (<$in_fh>) {
  $json_string .= $_;
 }
 close $filename;
 my $total_bytes_ref = from_json $json_string;
 %total_bytes = %{$total_bytes_ref};
}
while (<>) {
 next if /\A#/;
 my ($src, $dst, $bytes) = split;
 $total_bytes{$src}{'all'} += $bytes;
 $total_bytes{$src}{$dst} += $bytes;
}
open my $out_fh, '>', $filename or die "can't open $filename: $!";
print $out_fh to_json(\%total_bytes);
print to_json(\%total_bytes, { pretty => 1});

入出力結果(Zsh、PowerShell、Terminal)

% ./sample2.pl coconet.dat
{
   "maryann.girl.hut" : {
      "gilligan.crew.hut" : 1122049,
      "maryann.girl.hut" : 965243,
      "fileserver.copyroom.hut" : 1140533,
      "professor.hut" : 954374,
      "skipper.crew.hut" : 1001870,
      "all" : 7235878,
      "ginger.girl.hut" : 1065580,
      "laser3.copyroom.hut" : 986229
   },
   "gilligan.crew.hut" : {
      "ginger.girl.hut" : 1012723,
      "laser3.copyroom.hut" : 1027800,
      "all" : 7237638,
      "professor.hut" : 1013622,
      "skipper.crew.hut" : 966660,
      "fileserver.copyroom.hut" : 1006399,
      "gilligan.crew.hut" : 933857,
      "maryann.girl.hut" : 1276577
   },
   "skipper.crew.hut" : {
      "gilligan.crew.hut" : 1097882,
      "maryann.girl.hut" : 984691,
      "fileserver.copyroom.hut" : 1010486,
      "skipper.crew.hut" : 964162,
      "professor.hut" : 954445,
      "ginger.girl.hut" : 1041603,
      "laser3.copyroom.hut" : 1050796,
      "all" : 7104065
   },
   "professor.hut" : {
      "skipper.crew.hut" : 1075693,
      "professor.hut" : 1114174,
      "all" : 7382830,
      "ginger.girl.hut" : 1047250,
      "laser3.copyroom.hut" : 1018295,
      "gilligan.crew.hut" : 1073557,
      "maryann.girl.hut" : 1122947,
      "fileserver.copyroom.hut" : 930914
   },
   "ginger.girl.hut" : {
      "gilligan.crew.hut" : 993241,
      "maryann.girl.hut" : 1018548,
      "fileserver.copyroom.hut" : 949221,
      "skipper.crew.hut" : 1119766,
      "professor.hut" : 914678,
      "all" : 7225624,
      "ginger.girl.hut" : 1152020,
      "laser3.copyroom.hut" : 1078150
   },
   "laser3.copyroom.hut" : {
      "fileserver.copyroom.hut" : 1007034,
      "gilligan.crew.hut" : 1029793,
      "maryann.girl.hut" : 923296,
      "all" : 6948515,
      "ginger.girl.hut" : 952001,
      "laser3.copyroom.hut" : 1044817,
      "skipper.crew.hut" : 1037091,
      "professor.hut" : 954483
   },
   "fileserver.copyroom.hut" : {
      "laser3.copyroom.hut" : 1092608,
      "ginger.girl.hut" : 956638,
      "all" : 7175028,
      "skipper.crew.hut" : 956158,
      "professor.hut" : 1002371,
      "fileserver.copyroom.hut" : 1026030,
      "gilligan.crew.hut" : 1151354,
      "maryann.girl.hut" : 989869
   }
}
% ./sample2.pl coconet.dat
{
   "maryann.girl.hut" : {
      "ginger.girl.hut" : 2131160,
      "gilligan.crew.hut" : 2244098,
      "skipper.crew.hut" : 2003740,
      "laser3.copyroom.hut" : 1972458,
      "professor.hut" : 1908748,
      "maryann.girl.hut" : 1930486,
      "fileserver.copyroom.hut" : 2281066,
      "all" : 14471756
   },
   "professor.hut" : {
      "ginger.girl.hut" : 2094500,
      "gilligan.crew.hut" : 2147114,
      "professor.hut" : 2228348,
      "maryann.girl.hut" : 2245894,
      "skipper.crew.hut" : 2151386,
      "laser3.copyroom.hut" : 2036590,
      "fileserver.copyroom.hut" : 1861828,
      "all" : 14765660
   },
   "fileserver.copyroom.hut" : {
      "fileserver.copyroom.hut" : 2052060,
      "all" : 14350056,
      "skipper.crew.hut" : 1912316,
      "laser3.copyroom.hut" : 2185216,
      "professor.hut" : 2004742,
      "maryann.girl.hut" : 1979738,
      "ginger.girl.hut" : 1913276,
      "gilligan.crew.hut" : 2302708
   },
   "gilligan.crew.hut" : {
      "gilligan.crew.hut" : 1867714,
      "ginger.girl.hut" : 2025446,
      "maryann.girl.hut" : 2553154,
      "professor.hut" : 2027244,
      "skipper.crew.hut" : 1933320,
      "laser3.copyroom.hut" : 2055600,
      "all" : 14475276,
      "fileserver.copyroom.hut" : 2012798
   },
   "skipper.crew.hut" : {
      "ginger.girl.hut" : 2083206,
      "skipper.crew.hut" : 1928324,
      "gilligan.crew.hut" : 2195764,
      "laser3.copyroom.hut" : 2101592,
      "professor.hut" : 1908890,
      "maryann.girl.hut" : 1969382,
      "fileserver.copyroom.hut" : 2020972,
      "all" : 14208130
   },
   "ginger.girl.hut" : {
      "skipper.crew.hut" : 2239532,
      "gilligan.crew.hut" : 1986482,
      "ginger.girl.hut" : 2304040,
      "laser3.copyroom.hut" : 2156300,
      "maryann.girl.hut" : 2037096,
      "professor.hut" : 1829356,
      "all" : 14451248,
      "fileserver.copyroom.hut" : 1898442
   },
   "laser3.copyroom.hut" : {
      "gilligan.crew.hut" : 2059586,
      "ginger.girl.hut" : 1904002,
      "maryann.girl.hut" : 1846592,
      "professor.hut" : 1908966,
      "laser3.copyroom.hut" : 2089634,
      "skipper.crew.hut" : 2074182,
      "all" : 13897030,
      "fileserver.copyroom.hut" : 2014068
   }
}
% ./sample2.pl coconet.dat
{
   "ginger.girl.hut" : {
      "maryann.girl.hut" : 3055644,
      "gilligan.crew.hut" : 2979723,
      "fileserver.copyroom.hut" : 2847663,
      "all" : 21676872,
      "laser3.copyroom.hut" : 3234450,
      "professor.hut" : 2744034,
      "ginger.girl.hut" : 3456060,
      "skipper.crew.hut" : 3359298
   },
   "skipper.crew.hut" : {
      "laser3.copyroom.hut" : 3152388,
      "all" : 21312195,
      "professor.hut" : 2863335,
      "maryann.girl.hut" : 2954073,
      "gilligan.crew.hut" : 3293646,
      "fileserver.copyroom.hut" : 3031458,
      "skipper.crew.hut" : 2892486,
      "ginger.girl.hut" : 3124809
   },
   "maryann.girl.hut" : {
      "ginger.girl.hut" : 3196740,
      "skipper.crew.hut" : 3005610,
      "gilligan.crew.hut" : 3366147,
      "fileserver.copyroom.hut" : 3421599,
      "maryann.girl.hut" : 2895729,
      "all" : 21707634,
      "laser3.copyroom.hut" : 2958687,
      "professor.hut" : 2863122
   },
   "gilligan.crew.hut" : {
      "skipper.crew.hut" : 2899980,
      "ginger.girl.hut" : 3038169,
      "all" : 21712914,
      "laser3.copyroom.hut" : 3083400,
      "professor.hut" : 3040866,
      "fileserver.copyroom.hut" : 3019197,
      "gilligan.crew.hut" : 2801571,
      "maryann.girl.hut" : 3829731
   },
   "fileserver.copyroom.hut" : {
      "ginger.girl.hut" : 2869914,
      "skipper.crew.hut" : 2868474,
      "fileserver.copyroom.hut" : 3078090,
      "gilligan.crew.hut" : 3454062,
      "maryann.girl.hut" : 2969607,
      "professor.hut" : 3007113,
      "all" : 21525084,
      "laser3.copyroom.hut" : 3277824
   },
   "laser3.copyroom.hut" : {
      "professor.hut" : 2863449,
      "laser3.copyroom.hut" : 3134451,
      "all" : 20845545,
      "gilligan.crew.hut" : 3089379,
      "fileserver.copyroom.hut" : 3021102,
      "maryann.girl.hut" : 2769888,
      "skipper.crew.hut" : 3111273,
      "ginger.girl.hut" : 2856003
   },
   "professor.hut" : {
      "maryann.girl.hut" : 3368841,
      "gilligan.crew.hut" : 3220671,
      "fileserver.copyroom.hut" : 2792742,
      "professor.hut" : 3342522,
      "laser3.copyroom.hut" : 3054885,
      "all" : 22148490,
      "ginger.girl.hut" : 3141750,
      "skipper.crew.hut" : 3227079
   }
}
% ./sample2.pl coconet.dat
{
   "fileserver.copyroom.hut" : {
      "professor.hut" : 4009484,
      "gilligan.crew.hut" : 4605416,
      "all" : 28700112,
      "fileserver.copyroom.hut" : 4104120,
      "laser3.copyroom.hut" : 4370432,
      "maryann.girl.hut" : 3959476,
      "ginger.girl.hut" : 3826552,
      "skipper.crew.hut" : 3824632
   },
   "gilligan.crew.hut" : {
      "professor.hut" : 4054488,
      "gilligan.crew.hut" : 3735428,
      "fileserver.copyroom.hut" : 4025596,
      "all" : 28950552,
      "ginger.girl.hut" : 4050892,
      "maryann.girl.hut" : 5106308,
      "laser3.copyroom.hut" : 4111200,
      "skipper.crew.hut" : 3866640
   },
   "professor.hut" : {
      "all" : 29531320,
      "fileserver.copyroom.hut" : 3723656,
      "professor.hut" : 4456696,
      "gilligan.crew.hut" : 4294228,
      "skipper.crew.hut" : 4302772,
      "laser3.copyroom.hut" : 4073180,
      "maryann.girl.hut" : 4491788,
      "ginger.girl.hut" : 4189000
   },
   "skipper.crew.hut" : {
      "laser3.copyroom.hut" : 4203184,
      "ginger.girl.hut" : 4166412,
      "maryann.girl.hut" : 3938764,
      "skipper.crew.hut" : 3856648,
      "gilligan.crew.hut" : 4391528,
      "professor.hut" : 3817780,
      "all" : 28416260,
      "fileserver.copyroom.hut" : 4041944
   },
   "laser3.copyroom.hut" : {
      "skipper.crew.hut" : 4148364,
      "ginger.girl.hut" : 3808004,
      "maryann.girl.hut" : 3693184,
      "laser3.copyroom.hut" : 4179268,
      "fileserver.copyroom.hut" : 4028136,
      "all" : 27794060,
      "gilligan.crew.hut" : 4119172,
      "professor.hut" : 3817932
   },
   "ginger.girl.hut" : {
      "ginger.girl.hut" : 4608080,
      "maryann.girl.hut" : 4074192,
      "laser3.copyroom.hut" : 4312600,
      "skipper.crew.hut" : 4479064,
      "gilligan.crew.hut" : 3972964,
      "professor.hut" : 3658712,
      "fileserver.copyroom.hut" : 3796884,
      "all" : 28902496
   },
   "maryann.girl.hut" : {
      "professor.hut" : 3817496,
      "gilligan.crew.hut" : 4488196,
      "all" : 28943512,
      "fileserver.copyroom.hut" : 4562132,
      "laser3.copyroom.hut" : 3944916,
      "ginger.girl.hut" : 4262320,
      "maryann.girl.hut" : 3860972,
      "skipper.crew.hut" : 4007480
   }
}
% ./sample2.pl coconet.dat
{
   "laser3.copyroom.hut" : {
      "maryann.girl.hut" : 4616480,
      "fileserver.copyroom.hut" : 5035170,
      "professor.hut" : 4772415,
      "ginger.girl.hut" : 4760005,
      "skipper.crew.hut" : 5185455,
      "all" : 34742575,
      "laser3.copyroom.hut" : 5224085,
      "gilligan.crew.hut" : 5148965
   },
   "gilligan.crew.hut" : {
      "professor.hut" : 5068110,
      "fileserver.copyroom.hut" : 5031995,
      "maryann.girl.hut" : 6382885,
      "all" : 36188190,
      "gilligan.crew.hut" : 4669285,
      "laser3.copyroom.hut" : 5139000,
      "skipper.crew.hut" : 4833300,
      "ginger.girl.hut" : 5063615
   },
   "ginger.girl.hut" : {
      "professor.hut" : 4573390,
      "fileserver.copyroom.hut" : 4746105,
      "maryann.girl.hut" : 5092740,
      "skipper.crew.hut" : 5598830,
      "ginger.girl.hut" : 5760100,
      "all" : 36128120,
      "gilligan.crew.hut" : 4966205,
      "laser3.copyroom.hut" : 5390750
   },
   "skipper.crew.hut" : {
      "all" : 35520325,
      "laser3.copyroom.hut" : 5253980,
      "gilligan.crew.hut" : 5489410,
      "maryann.girl.hut" : 4923455,
      "professor.hut" : 4772225,
      "fileserver.copyroom.hut" : 5052430,
      "ginger.girl.hut" : 5208015,
      "skipper.crew.hut" : 4820810
   },
   "professor.hut" : {
      "skipper.crew.hut" : 5378465,
      "ginger.girl.hut" : 5236250,
      "gilligan.crew.hut" : 5367785,
      "laser3.copyroom.hut" : 5091475,
      "maryann.girl.hut" : 5614735,
      "all" : 36914150,
      "fileserver.copyroom.hut" : 4654570,
      "professor.hut" : 5570870
   },
   "fileserver.copyroom.hut" : {
      "maryann.girl.hut" : 4949345,
      "all" : 35875140,
      "professor.hut" : 5011855,
      "fileserver.copyroom.hut" : 5130150,
      "skipper.crew.hut" : 4780790,
      "ginger.girl.hut" : 4783190,
      "gilligan.crew.hut" : 5756770,
      "laser3.copyroom.hut" : 5463040
   },
   "maryann.girl.hut" : {
      "all" : 36179390,
      "maryann.girl.hut" : 4826215,
      "fileserver.copyroom.hut" : 5702665,
      "professor.hut" : 4771870,
      "ginger.girl.hut" : 5327900,
      "skipper.crew.hut" : 5009350,
      "laser3.copyroom.hut" : 4931145,
      "gilligan.crew.hut" : 5610245
   }
}
% cat log.json 
{"laser3.copyroom.hut":{"maryann.girl.hut":4616480,"fileserver.copyroom.hut":5035170,"professor.hut":4772415,"ginger.girl.hut":4760005,"skipper.crew.hut":5185455,"all":34742575,"laser3.copyroom.hut":5224085,"gilligan.crew.hut":5148965},"gilligan.crew.hut":{"professor.hut":5068110,"fileserver.copyroom.hut":5031995,"maryann.girl.hut":6382885,"all":36188190,"gilligan.crew.hut":4669285,"laser3.copyroom.hut":5139000,"skipper.crew.hut":4833300,"ginger.girl.hut":5063615},"ginger.girl.hut":{"professor.hut":4573390,"fileserver.copyroom.hut":4746105,"maryann.girl.hut":5092740,"skipper.crew.hut":5598830,"ginger.girl.hut":5760100,"all":36128120,"gilligan.crew.hut":4966205,"laser3.copyroom.hut":5390750},"skipper.crew.hut":{"all":35520325,"laser3.copyroom.hut":5253980,"gilligan.crew.hut":5489410,"maryann.girl.hut":4923455,"professor.hut":4772225,"fileserver.copyroom.hut":5052430,"ginger.girl.hut":5208015,"skipper.crew.hut":4820810},"professor.hut":{"skipper.crew.hut":5378465,"ginger.girl.hut":5236250,"gilligan.crew.hut":5367785,"laser3.copyroom.hut":5091475,"maryann.girl.hut":5614735,"all":36914150,"fileserver.copyroom.hut":4654570,"professor.hut":5570870},"fileserver.copyroom.hut":{"maryann.girl.hut":4949345,"all":35875140,"professor.hut":5011855,"fileserver.copyroom.hut":5130150,"skipper.crew.hut":4780790,"ginger.girl.hut":4783190,"gilligan.crew.hut":5756770,"laser3.copyroom.hut":5463040},"maryann.girl.hut":{"all":36179390,"maryann.girl.hut":4826215,"fileserver.copyroom.hut":5702665,"professor.hut":4771870,"ginger.girl.hut":5327900,"skipper.crew.hut":5009350,"laser3.copyroom.hut":4931145,"gilligan.crew.hut":5610245}}%