Perlでnkfを使う
Perlでnkfを使う
※実経験の記憶を頼りに自宅の PC 環境(VMWareなど)で再現している内容もあるのでご注意下さい
2007-06-10
qmail の Maildir 形式でメールを受け取り、それをシェルや Perl スクリプトで処理する時に、エンコード周りで問題になることが多々ある。
今回は、Maildir 形式で受け取ったメールを Perl スクリプトで処理する場合について、気付いた点を書いていこうと思います。
Maildir 形式のファイルを除いてみると、メールヘッダと本文が書かれています。
[ヘッダの一部] Return-Path: <○○○@example.org> Delivered-To: △△△@example.org From: □□□@example.org To: ◇◇◇@example.org Subject: =?iso-2022-jp?B?GyRCJDMkcyRLJEEkTyQzJHMkSyRBJE8kMyRzJEskQSRPGyhC?= Content-Type: text/plain; charset="iso-2022-jp" Content-Transfer-Encoding: 7bit B:GBgB
Linux サーバ環境の場合、サーバの文字設定にもよりますが、大抵、日本語は文字化けしています。とりあえず、sjis に変換して見てやると、Subject と Body は以下のようになります。
$ echo '=?iso-2022-jp?B?GyRCJDMkcyRLJEEkTyQzJHMkSyRBJE8kMyRzJEskQSRPGyhC?=' | nkf --sjis こんにちはこんにちはこんにちは $ echo 'B:GBgB' | nkf --sjis 最大
これを Perl 内部でどのようにして処理してやるかですが、文字エンコードの変換といえば Jcode のライブラリが有名です。本文は抜き出して変数($Bodyとする)に入れたら、下記の関数で sjis に変換できます。
&jcode::convert(\$Body,'sjis');
サブジェクトについては同じ方法ではうまくいかないので、いろいろ調べていたのですが、とりあえずは Perl からシェルを呼んで、nkf しちゃいました。
(どうにか Perl 内で完結させたいのですが・・・)
また、日本語を含むサブジェクトの場合、Maildir 形式でファイル化した時点で、複数行に折りかえることがあります。その場合は、Subject: で始まる行だけ抜き出してしまうと、残りのサブジェクトが切れてしまうので要注意です。
例えば、下記の文字列の場合、C の後で改行されます。
(例1)こんにちはABCこんにちは
(例2)こんにちはABCこんにちはABCこんにちは
2 バイト文字と ASCII 文字が混ざると、ASCII 文字の後で改行されるみたいですね。
関連記事
上記の記事に関連する記事(最新の10件)です。
