プログラミング学習の記録 716.2 6章(複雑なデータ構造の操作)の練習問題1(Storableモジュール) 『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール／長尾 高弘 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix　著、伊藤 直也、田中 慎司、吉川 英興　監訳、株式会社ロングテール／長尾 高弘　訳、オライリー・ジャパン、2006年、ISBN4-87311-305-9) の 6章(複雑なデータ構造の操作),　6.8(練習問題)、1を解いてみる。

 

1.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; use Storable; my %total_bytes; my $all = "all"; my $total_bytes_data = "total_bytes.dat"; if(-e $total_bytes_data){ my $data = retrieve $total_bytes_data; %total_bytes = %$data; } while(<>){ next if /^#/; my ($source, $destination, $bytes) = split; $total_bytes{$source}{$destination} += $bytes; $total_bytes{$source}{$all} += $bytes; } store \%total_bytes, $total_bytes_data; my @sources = keys %total_bytes; for my $source ( sort {$total_bytes{$b}{$all} <=> $total_bytes{$a}{$all}} @sources){ print "$source 転送データ量 合計 $total_bytes{$source}{$all}bytes\n"; my @destinations = keys %{$total_bytes{$source}}; for my $destination ( sort {$total_bytes{$source}{$b} <=> $total_bytes{$source}{$a}} @destinations){ next if $destination eq $all; print " => $destination 転送データ量 ". "$total_bytes{$source}{$destination}bytes\n"; } }

以下では2日間とも全く同じログ(coconet.dat)としてます。

入出力結果(Terminal)

$ ./perl_program coconet.dat lovey.howell.hut 転送データ量 合計 1139833bytes => laser3.copyroom.hut 転送データ量 212456bytes => professor.hut 転送データ量 175065bytes => ginger.girl.hut 転送データ量 158084bytes => maryann.girl.hut 転送データ量 155080bytes => thurston.howell.hut 転送データ量 141790bytes => skipper.crew.hut 転送データ量 119766bytes => fileserver.copyroom.hut 転送データ量 98926bytes => gilligan.crew.hut 転送データ量 78666bytes gilligan.crew.hut 転送データ量 合計 983860bytes => laser3.copyroom.hut 転送データ量 240327bytes => maryann.girl.hut 転送データ量 145361bytes => skipper.crew.hut 転送データ量 118827bytes => lovey.howell.hut 転送データ量 107152bytes => professor.hut 転送データ量 101219bytes => thurston.howell.hut 転送データ量 97398bytes => fileserver.copyroom.hut 転送データ量 90369bytes => ginger.girl.hut 転送データ量 83207bytes ginger.girl.hut 転送データ量 合計 968495bytes => laser3.copyroom.hut 転送データ量 179803bytes => lovey.howell.hut 転送データ量 170948bytes => maryann.girl.hut 転送データ量 152634bytes => professor.hut 転送データ量 110300bytes => thurston.howell.hut 転送データ量 105940bytes => skipper.crew.hut 転送データ量 103592bytes => fileserver.copyroom.hut 転送データ量 79551bytes => gilligan.crew.hut 転送データ量 65727bytes maryann.girl.hut 転送データ量 合計 846806bytes => laser3.copyroom.hut 転送データ量 161843bytes => lovey.howell.hut 転送データ量 145271bytes => ginger.girl.hut 転送データ量 126902bytes => thurston.howell.hut 転送データ量 123456bytes => professor.hut 転送データ量 109526bytes => skipper.crew.hut 転送データ量 75155bytes => fileserver.copyroom.hut 転送データ量 63807bytes => gilligan.crew.hut 転送データ量 40846bytes professor.hut 転送データ量 合計 821931bytes => laser3.copyroom.hut 転送データ量 172882bytes => lovey.howell.hut 転送データ量 123396bytes => ginger.girl.hut 転送データ量 113685bytes => maryann.girl.hut 転送データ量 94786bytes => thurston.howell.hut 転送データ量 94363bytes => skipper.crew.hut 転送データ量 86642bytes => gilligan.crew.hut 転送データ量 82825bytes => fileserver.copyroom.hut 転送データ量 53352bytes fileserver.copyroom.hut 転送データ量 合計 770174bytes => lovey.howell.hut 転送データ量 160986bytes => professor.hut 転送データ量 146975bytes => ginger.girl.hut 転送データ量 103478bytes => maryann.girl.hut 転送データ量 99261bytes => skipper.crew.hut 転送データ量 88261bytes => thurston.howell.hut 転送データ量 86084bytes => gilligan.crew.hut 転送データ量 85129bytes thurston.howell.hut 転送データ量 合計 619077bytes => laser3.copyroom.hut 転送データ量 129628bytes => maryann.girl.hut 転送データ量 105137bytes => lovey.howell.hut 転送データ量 82972bytes => professor.hut 転送データ量 78576bytes => skipper.crew.hut 転送データ量 66538bytes => ginger.girl.hut 転送データ量 58580bytes => gilligan.crew.hut 転送データ量 56658bytes => fileserver.copyroom.hut 転送データ量 40988bytes skipper.crew.hut 転送データ量 合計 481951bytes => professor.hut 転送データ量 108779bytes => laser3.copyroom.hut 転送データ量 89505bytes => ginger.girl.hut 転送データ量 77621bytes => maryann.girl.hut 転送データ量 71880bytes => lovey.howell.hut 転送データ量 43427bytes => thurston.howell.hut 転送データ量 41726bytes => gilligan.crew.hut 転送データ量 29142bytes => fileserver.copyroom.hut 転送データ量 19871bytes $ ./perl_program coconet.dat lovey.howell.hut 転送データ量 合計 2279666bytes => laser3.copyroom.hut 転送データ量 424912bytes => professor.hut 転送データ量 350130bytes => ginger.girl.hut 転送データ量 316168bytes => maryann.girl.hut 転送データ量 310160bytes => thurston.howell.hut 転送データ量 283580bytes => skipper.crew.hut 転送データ量 239532bytes => fileserver.copyroom.hut 転送データ量 197852bytes => gilligan.crew.hut 転送データ量 157332bytes gilligan.crew.hut 転送データ量 合計 1967720bytes => laser3.copyroom.hut 転送データ量 480654bytes => maryann.girl.hut 転送データ量 290722bytes => skipper.crew.hut 転送データ量 237654bytes => lovey.howell.hut 転送データ量 214304bytes => professor.hut 転送データ量 202438bytes => thurston.howell.hut 転送データ量 194796bytes => fileserver.copyroom.hut 転送データ量 180738bytes => ginger.girl.hut 転送データ量 166414bytes ginger.girl.hut 転送データ量 合計 1936990bytes => laser3.copyroom.hut 転送データ量 359606bytes => lovey.howell.hut 転送データ量 341896bytes => maryann.girl.hut 転送データ量 305268bytes => professor.hut 転送データ量 220600bytes => thurston.howell.hut 転送データ量 211880bytes => skipper.crew.hut 転送データ量 207184bytes => fileserver.copyroom.hut 転送データ量 159102bytes => gilligan.crew.hut 転送データ量 131454bytes maryann.girl.hut 転送データ量 合計 1693612bytes => laser3.copyroom.hut 転送データ量 323686bytes => lovey.howell.hut 転送データ量 290542bytes => ginger.girl.hut 転送データ量 253804bytes => thurston.howell.hut 転送データ量 246912bytes => professor.hut 転送データ量 219052bytes => skipper.crew.hut 転送データ量 150310bytes => fileserver.copyroom.hut 転送データ量 127614bytes => gilligan.crew.hut 転送データ量 81692bytes professor.hut 転送データ量 合計 1643862bytes => laser3.copyroom.hut 転送データ量 345764bytes => lovey.howell.hut 転送データ量 246792bytes => ginger.girl.hut 転送データ量 227370bytes => maryann.girl.hut 転送データ量 189572bytes => thurston.howell.hut 転送データ量 188726bytes => skipper.crew.hut 転送データ量 173284bytes => gilligan.crew.hut 転送データ量 165650bytes => fileserver.copyroom.hut 転送データ量 106704bytes fileserver.copyroom.hut 転送データ量 合計 1540348bytes => lovey.howell.hut 転送データ量 321972bytes => professor.hut 転送データ量 293950bytes => ginger.girl.hut 転送データ量 206956bytes => maryann.girl.hut 転送データ量 198522bytes => skipper.crew.hut 転送データ量 176522bytes => thurston.howell.hut 転送データ量 172168bytes => gilligan.crew.hut 転送データ量 170258bytes thurston.howell.hut 転送データ量 合計 1238154bytes => laser3.copyroom.hut 転送データ量 259256bytes => maryann.girl.hut 転送データ量 210274bytes => lovey.howell.hut 転送データ量 165944bytes => professor.hut 転送データ量 157152bytes => skipper.crew.hut 転送データ量 133076bytes => ginger.girl.hut 転送データ量 117160bytes => gilligan.crew.hut 転送データ量 113316bytes => fileserver.copyroom.hut 転送データ量 81976bytes skipper.crew.hut 転送データ量 合計 963902bytes => professor.hut 転送データ量 217558bytes => laser3.copyroom.hut 転送データ量 179010bytes => ginger.girl.hut 転送データ量 155242bytes => maryann.girl.hut 転送データ量 143760bytes => lovey.howell.hut 転送データ量 86854bytes => thurston.howell.hut 転送データ量 83452bytes => gilligan.crew.hut 転送データ量 58284bytes => fileserver.copyroom.hut 転送データ量 39742bytes

ちゃんと2日間の転送データ量は1日の転送データ量の2倍になってることを確認できた。(全部は読んでないけど多分)

カレントディレクトリにはちゃんと"total_bytes.dat"という現状の合計を残すデータファイルが 作成された。

CPAN(モジュール)の有り難さを実感！