|
[バックナンバーのトップへ] [Linux システム管理のトップへ] いますぐ実践! Linux システム管理 / Vol.055 / 読者数:802名こんばんは、うすだです。 24時間フル愛用している ThinkPad の、ハードディスクの具合がおかしくなりました。
いちおう動作はしているようですが、アクセス時間が異様にかかります。
hda: dma_timer_expiry: dma status == 0x01
hda: error waiting for DMA
hda: dma timeout retry: status=0xd0 { Busy }
hda: DMA disabled
ide0: reset: success
はるか以前、別の PC の調子がおかしくなったときに、見た気がします。 トラブルは、いつも突然やってくるものですが、こんなふうに、 そろそろかもよって教えてくれるのは、ありがたいことだと思いました。 …なにごとも、前向きにとらえていきたいと思います。 それでは、今週も、はりきってまいりましょう! 今週のお題 - メールを集計する先週の最後で、Apache ネタを…とか言いましたが、 ぱっと思いつきませんでしたので、昔よくやったアレで行きたいと思います。 よく、WWW 上でアンケートや問い合わせのフォームを用意し、 結果を CGI でメールする、というようなことをします。よね。 たとえば、フォームに入力してボタンを押すと、以下の CGI が起動されるとします。 (日本語の処理やエラー処理などは、割愛しております。)
#!/usr/bin/perl
use CGI;
use Net::SMTP;
use strict;
my $cgi = new CGI;
my $vote = $cgi->param('vote');
my $name = $cgi->param('name');
my $mail = $cgi->param('mail');
my $smtp = Net::SMTP->new('localhost');
$smtp->mail('usu@usupi.org');
$smtp->to('vote@usupi.org');
$smtp->data;
$smtp->datasend("To: vote\@usupi.org\nFrom: usu\@usupi.org\n");
$smtp->datasend("Subject: [result] vote\n\n");
$smtp->datasend("Vote = $vote\nName = $name\nMail = $mail\n");
$smtp->dataend();
$smtp->quit;
print $cgi->redirect('thanks.html');
フォームで入力された vote, name と mail を、
Net::SMTP パッケージを使ってメールするだけの、簡単な CGI です。 To: vote@usupi.org From: usu@usupi.org Subject: [result] vote Vote = Good Name = 栗描いてるひと Mail = kuri@usupi.org これを集計するわけですが、いちいち手で処理していては、 いくら時間があっても足りませんよね。 というわけで、今週は、CGI などから送られてきた、ある決まった形式のメールを、 集計してみたいと思います。 それってシステム管理じゃないよねとか、うちはデータベースに記録してます、 というような上級者の方にとっては、物足りない内容となっております。 申し訳ありませんが、宿題までスルーしてください。
さて、まずは、vote から処理してみましょう。 集計する Perl スクリプトの例は、以下のようになります。
#!/usr/bin/perl
my %sum;
while(<>) {
chop;
if(/^Vote\s*=\s*(\S+)/) {
if($1 eq "Good" || $1 eq "Bad") {
$sum{$1}++;
} else {
$sum{'Other'}++;
}
}
}
print "Good: $sum{'Good'}\nBad: $sum{'Bad'}\n";
print "Other: $sum{'Other'}\n";
標準入力から読み込んだものが "Vote = " で始まる行だった場合、
その後に続く文字列を、連想配列 %sum に集計しています。
このスクリプトのファイル名が votesum.pl だとして、
メールスプールを直接処理するときは、以下のように実行します。
[実行]
<--- 押してね
それぞれのメールが、 どこかのディレクトリ(以下では vote_dir)に格納されている場合は、 以下のように実行します。
[実行]
<--- 押してね
では、次に、name と mail も合わせて処理してみましょう。
#!/usr/bin/perl
my (%sum, @dat);
while(<>) {
chop;
if(/^Vote\s*=\s*(\S+)/) {
print "\"$dat[0]\",\"$dat[1]\",\"$dat[2]\"\n" if $dat[0];
$dat[0] = $1;
if($1 eq "Good" || $1 eq "Bad") {
$sum{$1}++;
} else {
$sum{'Other'}++;
}
} elsif(/^Name\s*=\s*(.*)$/) {
$dat[1] = $1;
} elsif(/^Mail\s*=\s*(.*)$/) {
$dat[2] = $1;
}
}
print "\"$dat[0]\",\"$dat[1]\",\"$dat[2]\"\n" if $dat[0];
print STDERR "Good: $sum{'Good'}\nBad: $sum{'Bad'}\n";
print STDERR "Other: $sum{'Other'}\n";
標準入力からひたすら読むところ、vote を %sum で集計するところは、
先ほどと同様です。
[実行]
<--- 押してね
ただし、メールの場合、ISO-2022-JP という文字コードになっていますので、 Windows で扱うには、Shift-JIS などに変換する必要があります。 # iconv -f ISO-2022-JP -t Shift-JIS result.csv > result-s.csv 処理するときに、以下のように、直接変換した方が楽かもですね。 # ./votesum.pl < /var/spool/mail/vote | \ iconv -f ISO-2022-JP -t Shift-JIS > result.csv
というわけで、ほぼスクリプトの話でしたが、いかがでしたでしょうか。 宿題の答え先週の宿題は、 sudo コマンド実行時に、リダイレクトしたファイルは、誰の持ち物に なるでしょうか? でした。
やってみれば一目瞭然ですので、やってみましょう。
[実行]
<--- 押してね
残念ながら、root の持ち物にはなりません。 % sudo sh -c "cat /var/log/messages > /tmp/messages" 今週の宿題今週の宿題は、 今週のお題で作成したスクリプトを、もう少し柔軟にしてください。 です。
簡略化のため、決まった形式であることを前提としていましたが、
実際にはそうでないこともあるかもしれません。 明確な答があるわけではありませんので、ご自由にお考えください。 あとがき冒頭で、ThinkPad のハードディスクが、なんとか動いてますと書きましたが、 その後1時間もたたないうちに、お亡くなりになられました。 しかし、日頃から、以下の方法でバックアップや同期をとっていたため、 大事なものは失わずにすみました。
Vol.001〜003 - 簡易バックアップ 3部作
メルマガのネタだけじゃなく、実際にやっててよかったと思いました。 しかし、大事なものは無事復旧できましたが、音楽データなどの趣味的なものは、 ごっそり失いました。
最近、「7つの習慣」や「地上最強の商人」を読んで、
よい習慣を行うことの重要性に気づき始めていたところでした。 …なにごとも、前向きにとらえていきたいと思います。
さて、あと1週間で、黄金週間ですね。
今週も、ここまで読んでいただき、ありがとうございました。
「いますぐ実践! Linux システム管理」の解除は、以下からできます。
バックナンバーは、こちらにほぼ全部そろっています。
「栗日記」−毎日栗を描いています…って説明するのめんどくさいです。 |
▼ トップ ▼ プロフィール ▼ リンク
▼ 作ってみました
▼ せんでん 
▼ 最近読んだ本
[X]
「センネン画報」 今日 マチ子「粟津潔 デザインする言葉」 粟津潔 「Binary Hacks」 高林 哲,鵜飼 文敏,佐藤 祐介,浜地 慎一郎,首藤 一幸 「Make: Volume01」 オライリー・ジャパン 「セーラが町にやってきた」 清野 由実 「手紙屋」 喜多川 泰 「Linuxカーネル2.6解読室」 高橋 浩和,小田 逸郎,山幡 為佐久 「人蕩し術」 無能 唱元 「子育てハッピーアドバイス2」 明橋 大二, 太田 知子 「ラッセル幸福論」 B. Russell 「それでも人生にイエスと言う」 Viktor Emil Frankl 「子育てハッピーアドバイス」 明橋 大二, 太田 知子 「考具」 加藤 昌治 「北欧デザイン<3>」 渡部 千春 「北斎の謎を解く」 諏訪 春雄 「体感美術館」 平野 暁臣 「チベット永遠の書」 Theodore Illion 「リナックスの革命」 Pekka Himanen 「人月の神話」 Frederick Phillips,Jr. Brooks 「ヤバい経済学」 Steven D. Levitt, Stephen J. Dubner 「小布施ッション<2001-2002>」 セーラ・マリ カミングス 「アンパンマン伝説」 やなせ たかし 「夢をかなえるゾウ」 水野 敬也 「ゲーム開発者のためのAI入門」 David M. Bourg, Glenn Seemann 「北欧デザイン<2>」 渡部 千春 「北欧デザイン<1>」 渡部 千春 「ヒューマン2.0」 渡辺 千賀 「中国・ロシア同盟がアメリカを滅ぼす日」 北野 幸伯 「超ロング・セラー 絶滅寸前商品」 湯浅 豊彦 「The BUG(ザ・バグ)」 すずき ひろのぶ,かとう みつあき 「デザインのデザイン」 原 研哉 「マキアヴェッリ語録」 塩野 七生 「ハンバーガーを待つ3分間の値段」 斎藤 由多加 「星の旅人-スペイン「奥の細道」-」 黛 まどか 「食品の裏側」 安部 司 「On Lisp」 Paul Graham 「ぼくが医者をやめた理由 つづき」 永井 明 「あなたならどうする?」 Jack Nikolaschka 「セキュアプログラミング−失敗から学ぶ設計・実装・運用・管理」 Mark G. Graff, Kenneth R. van Wyk 「「左利き」は天才？−利き手をめぐる脳と進化の謎」 David Wolman 「自分の中に毒を持て」 岡本 太郎 「アトピーの薬を減らす本」 田中 貴子 「岡本太郎「明日の神話」修復960日間の記録」 吉村 絵美留 「X51.ORG THE ODYSSEY」 佐藤 健寿 「アレルギーっ子の暮らし応援BOOK」 佐藤 のり子 「沖縄文化論」 岡本 太郎 「「伝説の社員」になれ!」 土井 英司 「コンピュータの構成と設計(上)」 Patterson & Hennessy 「カラスのジョンソン」 明川 哲也 「ドリルを売るには穴を売れ」 佐藤 義典 「頭がよくなる照明術」 結城 未来 「クロフォードのインタラクティブデザイン論」 Chris Crawford 「いじめの根を絶ち子どもを守るガイド」 Barbara Coloroso 「非常識のすすめ―逆発想の仏教論」 ひろさちや 「Linuxアドバンストネットワーク構築ガイド - HAサーバ構築編」 デージーネット 「イノベーションの達人!」 Tom Kelly, Jonathan Littman 「クリエーター50人が語る創造の原点」 小原 啓渡 「欺術 - 史上最強のハッカーが明かす禁断の技法」 Kevin Mitnick 「楽しい気象観察図鑑」 武田 康男 「入門 Ajax」 高橋 登史朗 「リリカルな自画像」 岡本 太郎 「やぎの目ゴールデンベスト」 林 雄司 「初めてのPython 第2版」 Mark Lutz,David Ascher 「鼻兎」 小林 賢太郎 「なぜ、これがアートなの?」 Amelia Arenas 「芸術起業論」 村上 隆 「まほう色の瞳」 Enrique Barrios 「ラーメンズつくるひとデコ」 ラーメンズ 「R25 つきぬけた男たち」 R25編集部 「美の呪力」 岡本 太郎 「しろのあお」 上大岡 トメ 「ザ・ゴール」 Eliyahu M. Goldratt 「ハッカーと画家」 Paul Graham 「岡本太郎に乾杯」 岡本 敏子 「Fedore Core Expert」 Software Design 「誰も知らない男」 ブルース・バートン 「子どもが育つ魔法の言葉」 ドロシー・ロー・ノルト 「国家の罠」 佐藤 優 「夜回り先生」 水谷 修 「やぎの目絵日記」 林 雄司 「7つの習慣」 スティーブン・R. コヴィー 「まろ、ん?−大掴源氏物語」 小泉 吉宏 「ザ・サーチ グーグルが世界を変えた」 ジョン・バッテル 「ポストモダン・マーケティング」 スティーブン ブラウン 「機動戦士ガンダムさん」 大和田 秀樹 「小エロのひみつ - Webやぎの目研究発表」 林 雄司 「これ、誰がデザインしたの?」 渡部千春 「60分間・企業ダントツ化プロジェクト」 神田 昌典 「ガルシアへの手紙」 エルバート ハバード 「人生は素晴らしいものだ」 オグ・マンディーノ 「ザ・マインドマップ」 トニー・ブザン,バリー・ブザン 「ワインバーグのシステム思考法」 G.M.ワインバーグ 「渋谷ではたらく社長の告白」 藤田 晋 「渋井真帆の日経新聞読みこなし隊」 渋井 真帆 「コラム息切れ」 小野 法師丸 「早朝起業」 松山 真之介 「変な人が書いた驚くほどツイてる話」 斎藤 一人 「35歳から仕事で大切にしたいこと」 村井 勉 「金融広告を読め」 吉本 佳生 「発想する会社!」 トム・ケリー,ジョナサン・リットマン 「エハイク」 吉田 戦車 「人生の旋律」 神田 昌典 「仕事の思想」 田坂 広志 「CPUの創りかた」 渡波 郁 「非常識な成功法則」 神田 昌典 …これ以前は記録してません…
▼ 気に入ってる本
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
