本を読む

読書やコンピュータなどに関するメモ

「タクシー王子、東京を往く。」

タクシー王子、東京を往く。―日本交通・三代目若社長「新人ドライバー日誌」

posted with amazlet at 09.03.31

川鍋一朗
文藝春秋
売り上げランキング: 9710

Amazon.co.jp で詳細を見る

　日本交通の御曹司として生まれ、3代目社長を継いだ著者が、いちどは1,900億円の負債を抱えるまでに至り、自分の始めた新規事業も失敗して挫折、しかしそこから這い上がって会社を再建…

　…という部分は数行で済ませて、その後の話を語るのが本書。突然、1か月間、実際に見習い運転手としてタクシーに乗って営業するという体験談だ。

　ただし、最大の問題は、著者が道を知らないということ。なにしろ、渋谷から池袋まで明治通りが通っていることも知らなかったぐらい（笑）。それでも、お客さんに聞きながらこなしていく、そんな様子が、読み物として面白かった。

　以下、本書で仕入れたタクシー（日本交通）関連のトリビア。タクシーにあまり乗る機会がないので、有名な話だったらすみません。

ほかのタクシーを追い抜いて客を拾うのは昔は暗黙のルールでご法度だったが、規制緩和で台数が急増した結果、うやむやになっている
隔勤：朝8時から深夜2時まで乗車（途中3時間休憩）し、1日休んで、また翌朝から勤務する形態
派手な格好をした若い女性からのクレームがいちばん多い
デジタルGPS無線で、最適な車を回せるようになった
- ただし新人はパニックにならないよう3か月は無線配車は受けない
わざと場所を間違うように誘導してクレームをつけ、金を払わない、常習犯の手口
走行記録はスマートメディアで
墨田区にも立川（たてかわ）という地名がある
飯田橋の大曲交差点近くにあるスタンドが、日本一大きいLPガスのスタンド
青タン：深夜割増料金（メーターが青くなる）
客に「お任せ」と言われた場合でも、事前にルートを告げないと、クレームになることがときどきある
新人の場合、1日に走行距離300km、営業回数30回がひとつの指標
洗車のコツは水を使いすぎないこと。拭きとりが大変だし、拭きムラも出てしまう
- タクシー運転手には「グラースターゾル」が愛用されている
スポーツ、コンサート、パーティなどのイベント情報を押さえておくのもタクシードライバーの基本スキル
タクシー車両の座席はフルフラットになって仮眠をとれる
日本交通では7割の車両がトヨタ。アイドリングストップ機能が充実しているから
「お客さまがお客さまのいるところに連れていってくれる」
左三回の法則：降車したあと、左回りで同じブロックを3回まわってみる
銀座ではタクシーの乗禁地区が設定されていて、22～5時は指定の場所以外では乗せてはならない
GPSコード：日本交通のタクシーではレシートに降車場所のGPSコードが印字され、次回は乗車時にそれを出すと自動で行き先をセットできる
タクシー運転手が道交法で捕まると、点数と罰金だけでなく、営業所にペナルティがついて（累積すると台数を減らされる）、賞与が削られる
乗り場、無線、チケットは、流しより単価が高く効率がよい
泥酔などで客が寝込んでいる場合、手を触れて起こすのはNG。ドロボウやセクハラに間違えられる可能性がある
都内の著名な抜け道（emasaka注：確かに有名なところが多い）
- 外苑東通りから慶應病院の横を抜けて外苑西通りへ
- 外苑東通りから権田坂で四谷へ
- 桜田通りから赤羽橋で分かれて日比谷通りへ
- 六本木（麻布十番）から鳥居坂→飯倉入口→オークラ別館
- 日テレ通り→清水谷公園→赤坂
- 永代通りから首都高沿いに新大橋通りに
- 新橋から線路沿いに進み、帝国ホテルのところでチェンジして有楽町へ
- 浜松町一丁目交差点をさけてすぐ南から線路に寄り、戻って汐留に
- 湾岸通り→泉岳寺の日本トムソンの南から線路を潜る
- 白金台からグランドプリンス高輪を右に見て品川へ
- 西麻布交差点から根津美術館に抜けるルート
満タン返しかどうかは、同じ会社でも営業所によって違う
アイドリングストップ車両は、ニュートラルに入れるとエンジンが切れ、ドライブに入れるとエンジンがかかる
契約していないスタンドで入れるときは20Lまでというルール
給料日直後は銀行で札をおろしたばかりの人が多く、釣りが足りなくなる

TOMOYO Linuxでサンドボックス実行環境を動かす

　「404 Blog Not Found:perl - FreeBSD::i386::Ptrace released!」あたりを見たのをきっかけに、セキュアOSのことを思い出したので、TOMOYO Linux（のほんのさわり）を試してみました。

　以下、チュートリアルまんまの「動かしてみました」エントリってやつです。

TOMOYO Linuxってなに？

　TOMOYO Linuxは、LinuxカーネルにセキュアOS機能を追加するパッチです。もうじきLinuxカーネル本家にマージされるそうです。

　ちなみに、略称はなぜか「ccs」みたいです。関連プロジェクトには、SAKURA LinuxとかCERBERUS認証とかSYAORANファイルシステムとかYUEとかもあるみたいです。不思議ですね。

セキュアOSはシステムコールを制限する

　セキュアOSというのは、実行できるシステムコールをカーネルレベルで制限するOSです。root権限でも許可がなければブロックしちゃいます。多くの場合、誰がどのシステムコールを呼べるかのホワイトリストをもとに制限します。こういうのをMAC（Mandatory Access Control、強制アクセス制御）って呼びます。

　セキュアOSとしては、LinuxではSELinuxやLIDS、FreeBSDではTruestedBSDなど（の名前）が知られています。

　セキュアOSは、組み込みなどの特定用途向け環境に適しているようです。サンドボックス実行環境にも使えそうですね。

TOMOYO Linuxなら誰でも設定できる

　セキュアOSの問題は、設定がとても面倒なことです。ファイルやデバイスだけならまだしも、共有ライブラリの呼び出しや、共有ライブラリからアクセスするリソースなど、目に見えない部分まで、いちいち手で許可してやらなくちゃなりません。

　TOMOYO Linuxでは、これを解決するために、学習モードというのを用意しています。安全を確保した状態で学習モードで起動し、許可する対象の動作をいちど実行します。ここで呼び出しのログをとり、それをポリシーとしてまとめて許可します。

インストール

　では実際にやってみます。ここではCentOS 5.2を使います。

　といっても、インストール方法は公式サイトの「TOMOYO Linux 導入手順書（CentOS 5.2版）」のとおりにやればいいので、以下省略します。

学習モードで実行

　さて、再起動を実行して、TOMOYO Linuxのカーネルで起動します。セキュアOSなので（？）rootでログインしちゃいます。

　まず、mingettyの子孫プロセスを学習モード（プロファイル1）に移行させます。

[root@localhost ~]# setprofile -r 1 '<kernel> /sbin/mingetty'
1 <kernel> /sbin/mingetty
1 <kernel> /sbin/mingetty /bin/login
1 <kernel> /sbin/mingetty /bin/login /bin/bash
1 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/egrep
1 <kernel> /sbin/mingetty /bin/login /bin/bash /usr/bin/id
1 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/hostname
1 <kernel> /sbin/mingetty /bin/login /bin/bash /usr/bin/dircolors
1 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/grep
1 <kernel> /sbin/mingetty /bin/login /bin/bash /sbin/consoletype
1 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/unicode_start
1 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/unicode_start /bin/kbd_mode
1 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/unicode_start /bin/setfont
1 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/unicode_start /bin/setfont /bin/sh
1 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/unicode_start /bin/setfont /bin/sh /bin/gzip
1 <kernel> /sbin/mingetty /bin/login /bin/bash /usr/lib/ccs/setprofile

　ここで、Perlスクリプトを書いてみます。

[root@localhost ~]# vi hoge.pl

　中身はこんな感じ。

#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw(max);

print max(2, 10, 5), "\n";

　実行します。

[root@localhost ~]# perl hoge.pl
10

ポリシーを確認して保存

　記録したポリシーを確認してみます。

[root@localhost ~]# editpolicy

　キャラクタで画面が表示されました。プロセスの呼び出し関係がツリー状に表示されます。

　図では、perlの実行部分にカーソルがあります。ここで、Enterキーを押すと、そのプロセスのアクセスしたものが表示されます。

　qキーを押すと終了します。

　記録したポリシーは、忘れずに保存しておきます。

[root@localhost ~]# savepolicy

サンドボックスで実行

　いよいよサンドボックス環境（プロファイル3）に移行します。

[root@localhost ~]# setprofile -r 3 '<kernel> /sbin/mingetty'
3 <kernel> /sbin/mingetty
3 <kernel> /sbin/mingetty /bin/login
3 <kernel> /sbin/mingetty /bin/login /bin/bash
3 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/egrep
3 <kernel> /sbin/mingetty /bin/login /bin/bash /usr/bin/id
3 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/hostname
3 <kernel> /sbin/mingetty /bin/login /bin/bash /usr/bin/dircolors
3 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/grep
3 <kernel> /sbin/mingetty /bin/login /bin/bash /sbin/consoletype
3 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/unicode_start
3 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/unicode_start /bin/kbd_mode
3 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/unicode_start /bin/setfont
3 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/unicode_start /bin/setfont /bin/sh
3 <kernel> /sbin/mingetty /bin/login /bin/bash /bin/unicode_start /bin/setfont /bin/sh /bin/gzip
3 <kernel> /sbin/mingetty /bin/login /bin/bash /usr/lib/ccs/setprofile
3 <kernel> /sbin/mingetty /bin/login /bin/vi
3 <kernel> /sbin/mingetty /bin/login /usr/bin/perl
3 <kernel> /sbin/mingetty /bin/login /usr/lib/ccs/editpolicy
3 <kernel> /sbin/mingetty /bin/login /usr/lib/ccs/savepolicy

　さきほどのスクリプトを実行します。

[root@localhost ~]# perl hoge.pl
10

　問題ありません。

　では次の、学習していないワンライナーはどうでしょう。

[root@localhost ~]# perl -le 'print "Hello"'
TOMOYO-ERROR: Access 'read(open) /dev/null' defined for /usr/bin/perl
Can't open /dev/null: Operation not permitted

　TOMOYO Linuxでブロックされました。めでたしめでたし。それにしても、ここで/dev/nullをopenするなんて知りませんでした。

　ちなみにこのままでは/sbin/shutdownも実行できません。実行するには、無効モード（プロファイル0）に移行します。

[root@localhost ~]# setprofile -r 0 '<kernel> /sbin/mingetty'

まとめ

セキュアOSを使うと、ホワイトリスト（ポリシー）にないシステムコールを、rootでも実行できないように制限できる
TOMOYO Linuxでは学習モードでポリシーを設定できるのでらくちん

「神獣聖戦 Perfect Edition」上・下

神獣聖戦上 Perfect Edition (上)

posted with amazlet at 09.03.30

山田正紀
徳間書店
売り上げランキング: 74665

Amazon.co.jp で詳細を見る

神獣聖戦下 Perfect Edition

posted with amazlet at 09.03.30

山田正紀
徳間書店
売り上げランキング: 75034

Amazon.co.jp で詳細を見る

　実は好きなSFのひとつである「神獣聖戦」シリーズに、20年ぶりぐらいの新作が登場したので、読んだ。

　「Perfect Edition」と銘打っていて、一見改訂版っぽい題名になっているけど、実質は続編じゃないかと思う。つまり、「舞踏会の夜」か。「神獣聖戦」1～3とかを読んでないと、わからない箇所があるかも。…って調べたら絶版なのかぁ。

　内容は、ネタバレを含むので、「続きを読む」で。

「弁護士のくず」8巻

弁護士のくず 8 (ビッグコミックス)

posted with amazlet at 09.03.30

井浦秀夫
小学館

Amazon.co.jp で詳細を見る

　タケちゃんマン似の弁護士が、主に男女関係がらみの事件を解決する連作マンガ。

　「DOLL」では、二転三転する内容以上に、ワイドショーの風評被害を取り上げているなぁと思った。あと織田信長w

LWPはHTMLのhttp-equivを解釈する

　結論はタイトルのとおり。PerlのWebプログラマーの人だったらみんな知ってるようなことでしょうが、初めて知ったので、メモ。

　hoge.htmlを用意。

<HTML>
<head>
<meta http-equiv="content-type" Content="text/html; charset=utf-8">
</head>
<body>
</body>
</HTML>

　hoge.plを用意。fileスキームなのでHTTPヘッダーの情報はほぼ付かないと予想。

#!/usr/bin/perl
use strict;
use warnings;
use feature qw(:5.10);
use LWP::UserAgent;

my $url = 'file:///path/to/hoge.html';

my $ua = LWP::UserAgent->new;
my $res = $ua->get($url);
my @ct = $res->header('Content-Type');

say for @ct;

　実行結果。Content-Typeにcharset情報が。

$ perl hoge.pl
text/html
text/html; charset=utf-8

　どこで解釈しているか、LWP::UserAgent→LWP::Protocol::http→LWP::Protocolとソースをドリルダウンして確認。collectメソッドで以下のようになっていました。

	$parser = HTML::HeadParser->new($response->{'_headers'});
        （略）
	    if ($parser) {
		$parser->parse($$content) or undef($parser);
	    }