江原です。

T.P.S.Nakagawaさんの記事:
<030924142720.M0351547@arts.kikansha.jp> から引用します。
># Perl で書いても良かったら、簡単だし面白いからやってみても
># いいな、と思って一瞬さいとうさんに直接メールを出そうとして
># しまった。そのメールが読めないんですよね(笑)

書籍『実用Perlプログラミング』に，POPサーバにあるメッセージの
ヘッダと冒頭3行を表示するサンプルプログラムが載っています
(Net::POP3 モジュールを使う)。
私の場合，これを改造して，
  「POPサーバにあるメールのヘッダ部分だけ取り出して来て，
    Swen.A と思しきもの(*)はサーバから削除する」
というプログラムを作り，これを定時実行させています。

(*) ヘッダに "SUBJECT", "FROM" (大文字)で始まるフィールドが
   あった場合，Swen.A と判定する。

私のとこの環境は Windows2000 + cygwin ですが，Windows9x/Me
や cygwin が入っていない環境でも，ActivePerlを使えば同様の
ことができるかもしれません。


-- 
江原 純一 mailto:j-ehara@pop17.odn.ne.jp