こんな感じです。もう少し良いやり方があるかもしれませんが。なお、下部に二段ぶち抜きの図をいれるために、nidanfloatというパッケージが必要なようです。

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>
#include <string.h>
#include <termios.h>
#include <time.h>

void main() {
  int fd;
  struct termios tio;

  // open and set port
  fd = open("/dev/COM1", O_RDWR);
  memset(&tio, 0, sizeof(tio));
  tio.c_cflag = CS8 | CLOCAL | CREAD;
  tio.c_cc[VTIME] = 100;
  cfsetispeed(&tio, B57600);
  cfsetospeed(&tio, B57600);
  tcsetattr(fd, TCSANOW, &tio);

  // read from serial port
  while(1){
    int i;
    int len;
    unsigned char buffer[256];
    if ((len = read(fd, buffer, 256)) < 0) {
      exit(0);
    }
    for(i=0; i<len; i++){
       printf("%02X ",buffer[i]);
    }
  }
}

if (/^From:*!.*/ && lookup($MATCH2, "rejectlist"))
{
to "| mailbot -c ISO-2022-JP \
-t /home/account/MailBox/mailaccount/reply \ 
-A 'From: Mail Delivery System <hoge@hoge.com>' \
/usr/sbin/sendmail -t"
}

次に、/home/account/MailBox/mailaccount/replyに返信内容を書きます。適当に。

I'm sorry to have to inform you that the message could not 
be delivered to one or more destinations.

また、拒否をするリストを/home/account/MailBox/mailaccount/rejectlistに書きます。

test@test.com
hoge@hoge.hoge

以上で完了です。rejectlistに書かれている人からのメールは自動的にreplyの内容で返信されます。replyの内容を日本語にしたい場合は、ISO-2022-JPで書いておけば多分大丈夫。ちなみに.mailfilter中、toをccにすれば、自分にメールが届いた上で自動返信されます。

ご存知、time関数は1970年1月1日からの経過秒数を秒単位で返す関数で、1秒以内に終わるようなプログラムを何度も実行する場合、同じシードで乱数が初期化されて結果が同じになるという事態が起きるようです。そういうわけで、マイクロ秒単位で取得できるgettimeofdayを使うことで事なきを得ました。

#include <sys/time.h>

struct timeval tv;
gettimeofday(&tv, NULL);
srand(tv.tv_usec);

ちなみに、timevalは/sys/time.hで定義されています。通常、

struct timeval {
    time_t      tv_sec;     /* 秒 */
    suseconds_t tv_usec;    /* マイクロ秒 */
};

らしいですが、cygwinでは

struct timeval {
    long      tv_sec;     /* 秒 */
    long      tv_usec;    /* マイクロ秒 */
};

でした。

• DoCoMo http://www.nttdocomo.co.jp/service/imode/make/content/
• au http://www.au.kddi.com/ezfactory/tec/
• SoftBank http://developers.softbankmobile.co.jp/dp/

CGIによる振り分け方法

CGIによる振り分け方法を簡単に書きます。ここではUserAgentを見て振り分けていますが、IPアドレスを見て振り分けることも出来ます。振り分け用のコードは以下のように書けばいいでしょう。

#!/usr/bin/perl
$ua = $ENV{'HTTP_USER_AGENT'};
if ($ua =~ /DoCoMo|UP.Browser|J-PHONE|Vodafone|SoftBank/) {
  print "Location: http://www.example.com/m/index.html\n\n";
}
else {
  print "Location: http://www.example/index.html\n\n";
}

これをhttp://www.example.com/index.cgiなどに設置し、http://www.example.com/.htaccessに

DirectoryIndex index.cgi index.html 

とでも記述すれば完了です。

.htaccessによる振り分け方法

以下のように記述した.htaccessをhttp://www.example.com/.htaccessとしておいておくだけです。ただし、mod_rewriteが使えるサーバでないと使えません。こちらのほうが一つのファイルを追加するだけで良いので簡単ですね。

RewriteEngine on
RewriteCond %{HTTP_USER_AGENT} "DoCoMo" [NC,OR]
RewriteCond %{HTTP_USER_AGENT} "J-PHONE" [NC,OR]
RewriteCond %{HTTP_USER_AGENT} "Vodafone" [NC,OR]
RewriteCond %{HTTP_USER_AGENT} "SoftBank" [NC,OR]
RewriteCond %{HTTP_USER_AGENT} "KDDI" [NC,OR]
RewriteCond %{HTTP_USER_AGENT} "UP.Browser" [NC]
RewriteRule ^$ http://www.example.com/m/ [L] 

さて、これを参考にしつつ、どこで取るか決めるかな。どうせならあまり人がいないドメインの方が面白いかなあと。mokuren.ne.jpが0なのは、誰もいないのか、まだ新しいドメインなのか、スパム認定されたのか、どうなんでしょう？？？使いやすそうなjpn.orgは一番インデックス数が多いですね。

なお、以下はスクリプトです。GoogleのHTMLの表示の仕様が変わると使えなくなるという代物です。一応動いているし使い捨てスクリプトだしいいかなと。HTTP::Liteを使ってます。

#!/usr/bin/perl

use HTTP::Lite;

my $baseurl = 'http://www.google.co.jp/search?q=site:';
my @url = (
'uh-oh.jp','jeez.jp','websozai.jp','2-d.jp','netgamers.jp',
'tank.jp','razor.jp','rulez.jp','matrix.jp','spawn.jp',
'dojin.com','sakuratan.com','halfmoon.jp','ivory.ne.jp',
'opal.ne.jp','topaz.ne.jp','mints.ne.jp','sumomo.ne.jp',
'mokuren.ne.jp','mail-box.ne.jp','sakuraweb.com',
'jpn.org','x0.com','squares.net','rgr.jp','rdy.jp',
'skr.jp','eek.jp','flop.jp','whoa.jp','noob.jp','achoo.jp',
'bona.jp','chew.jp','crap.jp','grats.jp','grrr.jp',
'rash.jp','thyme.jp','amaretto.jp','mimoza.jp','nyanta.jp',
'xii.jp','deko8.jp','o0o0.jp','undo.jp','saloon.jp','rojo.jp',
'daynight.jp','gokujou.biz','saikyou.biz','fubuki.info','180r.com',
'rossa.cc','kokage.cc','nazo.cc','x0.to','silk.to','rusk.to',
'sakura.tv','from.tv',
'kirara.st');

print "<table><tr><th>URL</th><th>number of index</th></tr>\n";
my $total = 0;
for ($i=0;$i<@url;$i++) {
 my $http = new HTTP::Lite;
 my $req = $http->request("$baseurl$url[$i]");
 if ($req eq "200") {
  my $body = $http->body();
  if ($body =~ /<b>$url[$i]<\/b>(.*?)<b>([0-9,]+)<\/b>/m) {
   $num = $2;
   $num =~ s/,//g;
   $total += $num;
  }
  else {
   $num = 0;
  }
  print "<tr><td>@url[$i]</td><td>$num</td></tr>\n";
  sleep(1);
 }
}
print "<tr><th>total</th><td>$total</td></tr></table>\n";

1. メモ帳を開き"**"と入力。
2. "*"と"*"の間にカーソルを合わせ右クリック、「Unicode制御文字の挿入」から「RLO Start of right-to-left override」を選択する。
3. Ctrl-A（Ctrlを押しながらAを押す）で全てを選択し、Ctrl-Cでクリップボードにコピーする。（マウスで選択してコピーしてもできるかも）
4. 「コントロールパネル」（スタートメニューから設定を選択する）から「管理ツール」を開き「ローカルセキュリティポリシー」を開く。
5. 初めてポリシーを作る場合は「ソフトウェア制限のポリシー」から「新しいポリシーの作成」を選択する。
6. 「ソフトウェア制限のポリシー」から「追加の規則」を選択し、右クリック、「新しいパスの規則」を選択する。
7. 「パス」欄でCtrl-Vをしてメモ帳に入力した内容を貼り付ける。（マウスで選択した場合は貼り付けを選択すればできるかと）
8. 「適用」を押す。ただし、セキュリティレベルが「許可しない」となってることを確認しておく。

いずれの記事も結構最近の記事なんですが、原理的にはかなり昔からできた方法だろうなあという気もしていて、どれくらい昔から使われていた手法なんでしょうかね？ちなみにUnicode関係の話としては上の解決法を書いておられる方の資料「それ Unicode で」も結構面白い内容でしたので是非一読あれ。

この場合、こういうプロンプトになります。

[akira@computer ~]$ 

プロンプトの表示をいろいろと変えたい場合は、man bashを見ればいいのですが、manは長いのでプロンプトで使えるエスケープシーケンスを少しだけ引用しておきます。

\a   ASCII のベル文字 (07) 
\d   "曜日 月 日" という形式の日付 (例: "Tue May 26") 
\e   ASCII のエスケープ文字 (033) 
\h   ホスト名のうち最初の `.' までの部分 
\H   ホスト名 
\j   シェルによって現在管理されているジョブの数 
\l   シェルの端末デバイスのベース名 (basename) 
\n   改行 
\r   復帰 
\s   シェルの名前。つまり $0 のベース名 (最後のスラッシュ以降の部分) 
\t   24 時間の HH:MM:SS 形式の現在の時刻 
\T   12 時間の HH:MM:SS 形式の現在の時刻 
\@   12 時間の HH:MM am/pm 形式の現在の時刻 
\u   現在のユーザのユーザ名 
\v   bash のバージョン
\V   bash のリリース。バージョンにパッチレベルを加えたもの
\w   現在の作業ディレクトリ 
\W   現在の作業ディレクトリのベース名 
\!   このコマンドの履歴番号 
\#   このコマンドのコマンド番号 
\$   実効 UID が 0 の場合に #、 それ以外の場合は $ 
\nnn 8進数 nnn に対応する文字 
\\   バックスラッシュ 
\[   非表示文字のシーケンスの開始。
\]   非表示文字のシーケンスを終了します。 

.bashrcが読み込まれていない場合は/etc/profileあるいは~/.bash_login に 以下の行を追加しておけばOKのようです。

test -f ~/.bashrc && . ~/.bashrc

動作サンプルとしては、以下のようなコードで簡単に動作確認ができると思います。多分。

use Net::Amazon;

my $ua = Net::Amazon->new(token => 'AMZN_TOKEN', locale => 'jp');

my $response = $ua->search(asin => '01234567');
#my $response = $ua->search(blended => "Perl");

if(not $response->is_success()) {
  print "Error: ", $response->message(), "\n";
  exit;
}
print $response->as_string(), "\n";

foreach my $item ($response->properties()) {
  print "Title: ", $item->Title(), "\n";
  print "Catalog: ", $item->Catalog(), "\n";
  print "LargeImageUrl: ", $item->LargeImageUrl(), "\n";
  print "MediumImageUrl: ", $item->MediumImageUrl(), "\n";
  print "SmallImageUrl: ", $item->SmallImageUrl(), "\n";
  print "OurPrice: ", $item->OurPrice(), "\n";

  my $review = $item->review_set;
  if ($review->total_reviews) {
    print "AverageCustomerRating: ", 
      $review->average_customer_rating, "\n";
    foreach my $rev ($review->reviews) {
      print "Rating: ", $rev->rating, "\n";
      print "Summary: ", $rev->summary, "\n";
      print "Comment: ", $rev->comment, "\n";
     }
  }
}

なお、こことこことここを参考にしました。このモジュールはいろいろ面白そうなので、キャッシュの使い方も含めてもう少しいろいろ触ってみる必要がありそうです。まあ、問題はこれを使って何をしようかということなんですが。。

RewriteEngine on
RewriteBase /
RewriteRule ^list/([0-9]+)/$ index.php?m=list&g=$1 [L]

正規表現部分の^（行頭）と$（行末）を表す部分を外して以下のように書いたらうまくいきました。

RewriteEngine on
RewriteBase /
RewriteRule list/([0-9]+)/ index.php?m=list&g=$1 [L]

うーん、なんでなんでしょう？？ちなみに、ここはさくらのレンタルサーバで動いています。まあ動いたからとりあえずこれでいいかな。なお、楽天ショップCGIはこちらに設置しておきました。

このスクリプト、利用規定を見ると改造も著作権表示も自由みたいなんですが凄いですね。時間が有ればこれを自分なりのものに改造、改良していきたいですが、まあ、当分はこのまま放置することになりそうです。

ちなみに上をbday.cgiという名前で保存し、以下のようなHTMLから呼び出せば使えるでしょう。

<html>
<head><title>誕生日からの経過日数</title></head>
<body>
<p>誕生日からの経過日数を計算します。
下のフォームに誕生日を入力してみてください。</p>
<form method="post" action="bday.cgi">
<p>誕生日：
<input name="byear" size="4" /> 年
<input name="bmonth" size="2" /> 月
<input name="bday" size="2" /> 日
<input type="submit" value="送信" /></p>
</form>
</body></html>

AuthUserFile /home/akira/www/.htpasswd
AuthName "Please enter username and password"
AuthType Basic
require valid-user

しかし、mod_auth_pamというPAMモジュールが入っている場合は、その設定をしてやらないとうまく動かないようです。急に動かなかったとなったときには、手軽に以下のようにAuthPAM_Enabled offという行を追加すれば動くなるようになるみたいです。僕の使っていたサーバでもこれでうまく動くようになりました。

AuthUserFile /home/akira/www/.htpasswd
AuthName "Please enter username and password"
AuthType Basic
AuthPAM_Enabled off
require valid-user

ONBOOT=no

おなじみのコマンドです。一番使いやすいかも。CPU使用率やメモリ使用率をプロセスごとに表示してくれます。どのプロセスがリソースを消費しているか確認する時に便利です。起動する時に引数を指定すると、-bでバッチモード、-dで表示頻度の変更、-uで監視するユーザの指定、-pで監視するプロセスの指定、などができます。

sadc、sar

sadc コマンドはシステムの使用状況データを収集して後日に分析できるようファイルに書き込むコマンドで、sarコマンドはsadcで収集されたデータに基づいてシステムの使用状況レポートを生成します（参考）。sadcはsa1スクリプトで、sarはsa2スクリプトで実行され、cronと組み合わせて使われるようです。異常が起きたときに自動的にメール送信するようにしてたら便利かも。

vmstat

プロセス・メモリ・ページング・ブロック IO・トラップ・CPU 稼働状況などに関する情報を報告してくれるコマンドです。引数に数値を入れることで、指定した秒数間隔で報告してくれます。プロセスとメモリに関する報告は、いずれも報告の瞬間のものらしいです。

mpstat

SMPシステムでの各CPUの負荷を計測してくれます。vmstatと同じく、引数を指定してやることで報告間隔を変えることが出来ます。

mrtg

ネットワーク帯域、CPU使用率、メモリ使用率、ディスク使用率をグラフ化して表示してくれます。自分でサーバを持っている人にとっては便利そうなツールです。