[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

(DTPtechNote:404) mail.appからEudora形式でエクスポートした時のSubject文字化け



mail.appからEudora形式でエクスポートした時のSubject文字化け(base64エンコーディング)
を直します。
出力はリダイレクトしてくらさい。
別途mimer.plが必要です。

#!/usr/bin/perl -w

require 'mimer.pl';
#http://www.cc.rim.or.jp/~ikuta/mime_pls/download.html

foreach $file (@ARGV) {
open (IN , "$file") or die "$file : $!\n" ;

while (<IN>) {
if (/^Subject: /) {
$_ = &mimedecode($_,"")
}
print;
}

close (IN);
}