PostPet2001 のおともだち帳
|
よんどころない事情にて mbox 形式のメールファイルの From 欄を抜き出して、PostPet2001 for Windows のおともだち帳を作らなくてはならなくなりました。
まず、ポストペットのアドレス帳形式なんて知らないので、まずは google で検索してみますが、からっきしヒットしません。仕方ないので、自分で調べることにしました。以下、作業は cygwin のコンソール上で行います。
というわけで、ペットの種類は「ポストマンに固定」かつペットの名前は「なし」にして、 From 欄の名前を「飼い主の名前」にするといった仕様でよさそうです。
あとはフィルタを作るだけです。同じ人からの複数のメールから複数のおともだち帳レコードを作らないようにするのに sort と uniq コマンドを使いたかったので、前処理（mboxからメールアドレスと名前を抜く）と後処理（メールアドレスと名前からアドレス帳を生成）用の２つの Perl スクリプトを書くことにしました。
#後処理では、前処理で
# 名前\tメールアドレス
#という形式で書き出したファイルを sort|uniq したものを読み込みます。
$separator = pack("CCCC",00,00,00,00);
$dammy = pack("C",00);
while(<>){
$line = $_;
$line =~ s/^M//;
($name,$address) = split(/\t/,$line);
$nlength = pack("C",length($name));
$alength = pack("C",length($address));
printf $separator.$dammy.$nlength.$name.$alength.$address.$separator;
}
というわけで、無事おともだち帳を生成することができました。
関連ページ (2002.2.11) |
