開発環境
- OS X Lion - Apple(OS)
- TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
- Script言語:Perl
『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール/長尾 高弘 訳、オライリー・ジャパン、2006年、ISBN4-87311-305-9) の5章(リファレンスとスコープ)、5.9(練習問題)2を解いてみる。
2.
コード(TextWrangler)
#!/usr/bin/env perl
use strict;
use warnings;
my %total;
my $all = "all";
while(<>){
next if /^#/;
my($source,$destination,$bytes) = split;
$total{$source}{$destination} += $bytes;
$total{$source}{$all} += $bytes;
}
for my $source (sort{
$total{$a}{$all} <=> $total{$b}{$all}
} keys %total){
print "$source: $total{$source}{$all}bytes\n";
my $width_b = length $total{$source}{$all};
my @destination = sort{
$total{$source}{$b} <=> $total{$source}{$a}
} keys %{$total{$source}};
my $width = 0;
for my $destination(@destination){
$width = length $destination if $width < length $destination;
}
for my $destination(sort{
$total{$source}{$b} <=> $total{$source}{$a}
} keys %{$total{$source}}){
next if $destination eq "all";
printf " => %-${width}s %${width_b}dbytes\n",$destination,$total{$source}{$destination};
}
}
入出力結果(Terminal)
$ ./sample.pl coconet.dat skipper.crew.hut: 481951bytes => professor.hut 108779bytes => laser3.copyroom.hut 89505 bytes => ginger.girl.hut 77621 bytes => maryann.girl.hut 71880 bytes => lovey.howell.hut 43427 bytes => thurston.howell.hut 41726 bytes => gilligan.crew.hut 29142 bytes => fileserver.copyroom.hut 19871 bytes thurston.howell.hut: 619077bytes => laser3.copyroom.hut 129628bytes => maryann.girl.hut 105137bytes => lovey.howell.hut 82972 bytes => professor.hut 78576 bytes => skipper.crew.hut 66538 bytes => ginger.girl.hut 58580 bytes => gilligan.crew.hut 56658 bytes => fileserver.copyroom.hut 40988 bytes fileserver.copyroom.hut: 770174bytes => lovey.howell.hut 160986bytes => professor.hut 146975bytes => ginger.girl.hut 103478bytes => maryann.girl.hut 99261 bytes => skipper.crew.hut 88261 bytes => thurston.howell.hut 86084 bytes => gilligan.crew.hut 85129 bytes professor.hut: 821931bytes => laser3.copyroom.hut 172882bytes => lovey.howell.hut 123396bytes => ginger.girl.hut 113685bytes => maryann.girl.hut 94786 bytes => thurston.howell.hut 94363 bytes => skipper.crew.hut 86642 bytes => gilligan.crew.hut 82825 bytes => fileserver.copyroom.hut 53352 bytes 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 75155 bytes => fileserver.copyroom.hut 63807 bytes => gilligan.crew.hut 40846 bytes 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 79551 bytes => gilligan.crew.hut 65727 bytes 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 97398 bytes => fileserver.copyroom.hut 90369 bytes => ginger.girl.hut 83207 bytes lovey.howell.hut: 1139833bytes => laser3.copyroom.hut 212456 bytes => professor.hut 175065 bytes => ginger.girl.hut 158084 bytes => maryann.girl.hut 155080 bytes => thurston.howell.hut 141790 bytes => skipper.crew.hut 119766 bytes => fileserver.copyroom.hut 98926 bytes => gilligan.crew.hut 78666 bytes kamimuras-MacBook-Pro:perl kamimura$ ./sample.pl coconet.dat 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 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 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 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 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 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 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 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 $
0 コメント:
コメントを投稿