36. 2012-04-24 01:02:03 W3SVC1 192.168.0.1 GET /…
my %rpm; # 結果を格納するハッシュテーブル
while(<>) {
next unless /^?d{4}/;
my $time = substr($_,0,16);
$rpm{$time}++;
}
my @sorted_keys = sort keys %rpm;
foreach my $k (@sorted_keys) {
print "$k $rpm{$k}?n";
}
37. 入力データを分割して複数のプログラムに配る
2012-04-24 01:02:03 W3SVC1 192.168.0.1 2012-04-24 01:03:05 W3SVC1 192.168.0.1 2012-04-24 01:04:06 W3SVC1 192.168.0.1
GET/… GET/… GET/…
while(<>) { while(<>) { while(<>) {
next unless /^?d{4}/; next unless /^?d{4}/; next unless /^?d{4}/;
my $time = substr($_,0,16); my $time = substr($_,0,16); my $time = substr($_,0,16);
$rpm{$time}++; $rpm{$time}++; $rpm{$time}++;
} } }
それぞれのプログラムは与えられた 他の仲間が何をやっているか
データを淡々と処理 気にする必要はない
Map
my @sorted_keys = sort keys %rpm; 結果の断片をソートする
foreach my $k (@sorted_keys) { foreach my $k (@sorted_keys) {
print "$k $rpm{$k}?n"; print "$k $rpm{$k}?n";
Reduce } }
キーでソート済みであることが保証されているので、淡々
と結果出力をすればよい
38. Client Libraries
"Build-On" Media Partners and Customers Windows 8
Partner CDNs
Silverlight
Windows Phone
XBOX
HTML 5
"Build-In"
Partner Media
Processors
Flash
Adaptive Streaming
Origin Porting Kits
(STB, OS/Android)
Caching
39. S インスタンス時間単価 プレビュー 正式リリース
(予価)
仮想マシン
Windows 以外 7 円/時 7.43 円/時
Windows 7 円/時 10.06 円/時
SQL Server Web エディション 無料 3.94 円/時*
SQL Server Standard エディション 無料 48.08 円/時*
Web サイト 7 円/時 10.49円/時
仮想ネットワーク 無料 4.38円/時/接続