[Mew-dist 07264] Re: IM::Iso2022.pm

[Yutaka KAWASE]

かわせです。

MIME base64 エンコードされていないヘッダ（パソコンで受信した昔のメイルのテキスト）を

IM::Iso2022.pm を使って★エンコードしたい★

と言う件、おかげさまで出来ました。はぁ〜つかれた・・・

#!/usr/bin/perl
require 'jcode.pl';
use IM::Iso2022jp;

$Folding_length = 72;
#
# ひとつめの『わな』だったのは、この値を設定しないと行けなかったのを気
# が付きませんでした。
#

@header = (
	   'To: 川瀬裕 <yutaka at example.com>',
	   'Cc: かわせゆたか <yutaka at example.com>',
	   'Subject: へへへのへ',
	   'X-header: ほほほ'
	   );

for (@header) {
    $line = $_;
    jcode'convert(*line, 'jis');
# jcode というのは私が常用している文字コード変換スクリプト
# うたしろ＠ＩＩＪ さん作 @header 内の日本語を jis に変換
    push(@jisheader, $line);
}

for (@jisheader) {
    print "$_\n";
}

header_iso2022jp_conv( \@jisheader, 0 );

# ふたつめの罠だったのは、 header_iso2022jp_conv の返り値は、『うまく
# 行ったときにゼロ』なのに、if ( header_iso2022jp_conf( \@jisheader,
# 0) ) { ... としていたこと。ひとつめの罠を発見してもうまく行かなかっ
# たときにはもう半泣きでした。

print "--------\n";
for (@jisheader) {
     print "$_\n";
}

ということで、幸せになれました。どうもお騒がせ致しました。

私なんぞが偉そうかも知れませんが、$main::Folding_leangth が設定されて
いない場合のデフォルト値を IM::Iso2022jp.pm にいれておくと言うのは・・・
いろいろ他に難しいことがあるのでしょうか？

ヘッダが解決したのであとは、がば〜っとメイルを Mew 用に変換するスクリ
プトを書きます。

--
yutaka kawase <yutaka at example.com>