ヘヴィメタルプログラマー日記～メロイックサインでコードを書く日々～
ITpro – 三つの障害が連続発生、気象データ配信システムのダウンの経緯が判明
この障害に巻き込まれてたのでメモ。
ふんだりけったりですね。
システムの冗長化は色々考えるべき点が多いので難しいんだけど、ポイントとしてはサーバ、ネットワーク、ディスクの冗長化なのかな。
関わっているシステムでも気象データ配信システムと同じような構成を取っているものがあるんだけど、RAID搭載とはいえ共用ディスクが1台な事とか、ネットワークが冗長化されていないなどSPOFが結構ある気がする。
NICのbondingで運用系、待機系サーバそれぞれから共用サーバに2本ずつ接続し、1本がコケてももう1本で稼動するようにして、なるべく待機系に切り替えさせないといった、解決方法はありそう。
safari4ベータが出たので、safariのリダイレクトエラーで書いた現象をWindows版で確認してみた。
自作の携帯サイト用アクセス解析ソフト「Episode」の携帯キャリア判定モジュールをMooseでリファクタリングしてみた。色々改善の余地があるコードだけどとりあえず動くので良しとする。
HashRef[Str]型のdefaultの指定方法にめっちゃ苦労した。default = {a=>’a'}ってできなくて、無名サブルーチン使わなきゃいけないらしい。
MooseX::AttributeHelpersを組み込めば、この辺が楽になるのかね？
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 | package Episode::Request::UserAgent; use Moose; use Perl6::Say; has 'useragent' => ( is => 'rw', isa => 'Str', default => '', required => 1, ); has 'regex' => ( is => 'ro', isa => 'HashRef[Str]', default => sub { { docomo => '^DoCoMo', au => '^(?:KDDI|UP\.Browser\/.+?)-(.+?) ', softbank => '^(?:SoftBank|Semulator)', } }, required => 1, ); __PACKAGE__->meta->make_immutable; no Moose; sub is_mobile { my $self = shift; $self->useragent =~ $self->regex->{docomo} || $self->useragent =~ $self->regex->{au} || $self->useragent =~ $self->regex->{softbank} ? 1 : 0; } sub AUTOLOAD { my $self = shift; our $AUTOLOAD; my $pkg = __PACKAGE__ . '::is_'; $AUTOLOAD =~ s/$pkg//; my $regex = $self->regex->{$AUTOLOAD}; $self->useragent =~ m|$regex| ? 1 : 0; } 1; my $ua = 'KDDI-HI31 UP.Browser/6.2.0.5 (GUI) MMP/2.0'; my $req = new Episode::Request::UserAgent; $req->useragent($ua); say 'mobile? : ', $req->is_mobile; say 'docomo? : ', $req->is_docomo; say 'au? : ', $req->is_au; say 'softbank? : ', $req->is_softbank; |
結果
mobile? : 1 docomo? : 0 au? : 1 softbank? : 0
こんな感じでいいのだろうか。拡張性は一切考慮しなかった。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | import java.util.*; import java.text.*; public class IISLog { private static final DateFormat FORMAT = new SimpleDateFormat("yyyy-MM-dd HH:mm:ss"); public static String JST(String time) throws ParseException { Date date = FORMAT.parse(time); Calendar cal = Calendar.getInstance(); cal.setTime(date); cal.add(Calendar.HOUR, 9); return FORMAT.format(cal.getTime()); } public static void main(String[] args) { try { System.out.println(IISLog.JST("2008-08-27 23:00:00")); } catch (ParseException ex) { ex.printStackTrace(); } } } |
アクセスログ解析をPerlで行う場合に最低限必要な（使っている）モジュールを列挙してみた。
基本的にツールレベルなら軽量モジュールを使うけど、これでできない事があれば上位のモジュールを使ってもいい。
1 2 3 4 5 6 | use strict; # お約束 use warnings; # お約束 use CGI::Lite; # 検索ワードのデコードに使う use DBIx::Simple; # ログそのものや集計結果をDBに登録する use Encode; # 文字コード変換 use Text::CSV::Simple; # CSVファイルをまともにパースする |
まったく同様の機能をJavaで書いてみたけど解析そのものは4倍くらい速かった。
ただJavaだと思い立ったらツール作成→実行ができないので、DB関連の所だけInline::Javaで呼び出すって方法がいいのかもしれない。
（やると誰もメンテナンスできなくなるのが難点。もう1人プログラマください・・・）
