-たとえば Perl で書かれた CGI script, それも掲示板なんかには、 -こんなくだらない code が載っていたりします。
- --jcode'convert(*from, "jis"); -jcode'convert(*subject, "jis"); -jcode'convert(*message, "jis"); -open (MAIL, "| $sendmail"); -print MAIL "From: $mail ($from)\n"; -print MAIL "To: $mailto\n"; -print MAIL "Subject: $subject\n"; -print MAIL "\n"; -print MAIL "$message"; -print MAIL "\n"; -close (MAIL); -- -
これでは視認性も良くないですし、うっかり修正し間違えると -変なメッセージを送信してしまいます。 -(筆者はしょっちゅうはまってました:-) -(それに多くの code では、 -HTML でのクロスサイトスクリプティング (CSS) 問題と -類似の問題への対処をしていません。)
- -オブジェクト指向を取り入れて次のような感じでメッセージを -構成したいところです。
- -
-use Message::Entity;
-my $msg = new Message::Entity;
-my $hdr = $msg->header;
-$hdr->add ('From')->add ('me@bar.example');
-$hdr->add ('To')->add ('foo@bar.example', display_name => 'Mr. foo');
-$hdr->add ('Subject' => $subject);
-$msg->body ($body);
-
-# $smtp->send は SMTP で送信する method と仮定。
-$smtp->send ($msg);
-
-
-CPAN を探すと、
-これに似たようなことができそうなモジュールはあるようですが、
-実際に使ってみると、与える値によっては RFC 822/2822 に違反する
-結果を出力するなどの不満があります。 (例えば今の例で
-To: 領域に使っている
-display_name で「.」が含まれますが、
-RFC 2822 的には新しいメッセージでは互換性のため
-quoted-string
-にする必要があります。しかしそのまま出力されます。)
参考: 「.」の場合は RFC 2822 的には正しく解釈
-されなければなりませんが (出力はすべきでない)、
-これ以外の文字、例えば制御文字 ESCAPE でも同じようになります。
-こちらは完全に間違いです。
参考: 実装方針としては不正な値はモジュールに -渡す前に弾くべきという考え方もあるでしょう。 -でもそんなのは不便です。
- -ということで、はじめは既存のモジュールの wrapper (あるいは補完) -を書くつもりでしたが、なんだかごちゃごちゃしていて、 -それなら車輪の再発明になっても一から書いてみようと考えました。
- -group を解釈出来ます。Message-ID を生成出来ます。Content-Transfer-Encoding
-と一緒に実装予定)Content-Disposition) に対応しています。
-パラメーター値拡張 (RFC 2231)
-も入出力ともに実装しました。encoded-word)
-の解読に対応しています:-) 但し別途変換処理を指定する必要があります。
-(文字コードの扱い参照)Content-Location にも対応しています。CR や LF が単体で出現する場合、
-正しく処理出来ません。 (CRLF と等価とみなします。)
-将来の版ではオプションで制御可能になるかもしれません。body) の実装。comment
- を表すのに正規表現 (??{ code })
- を使っているので、これを解釈出来る、
- 5.6 以降の版である必要があります。
Message-ID の生成にこれらを使用する場合のみ、
- Message::Field::MsgID::MsgID が使います。
これらが用意されていない環境ではエラーになるので、 - (現状では) 上記モジュールの該当部分を書き換えて対処して下さい。
-日本語メッセージを扱うなら必須でしょう。 - 詳しくは文字コードの扱い - の章をご参照下さい。
-suika.fam.cx の SSH account をお持ちの場合、 CVS から入手出来ます。
- -$ cvs -d :ext:username@suika.fam.cx:/home/cvs -d perl/lib/Message/
- -Web からも取り出せます。 <http://suika.fam.cx/gate/cvs/perl/lib/Message/> (tarball で一括取得も出来ます。)
- -Message::* Perl modules は自由ソフトウェアです。 -GNU GPL に従って利用出来ます。詳しくは各ファイルを御覧下さい。
- -卑しいことで頭を悩ますのは嫌なので(藁)、 -Message::* は符号化方法独立 (CSI) を目指して実装しています。 -(但し ASCII のしがらみだけは断ち切っていません:-)) -0x00 〜 0x7F が ASCII (または ASCII と見なして良いもの) である -場合は、 Message::* を通したことでデータが壊れることは -無いと思います。
- -(もちろん、 RFC 822 など各仕様に照らして正統(的)で
-ある必要があります。 atom
-に8ビット・コードが含まれていると正しく扱えません。)
-(早い話が、 quoted-string
-などでは8ビット透過だということです。回りくどくてごめんなさい。)
既定の状態では文字コードに関係する変換処理は行われません。 -しかし、フック関数っぽいもの(謎)を指定することで、 -変換処理をさせられます。
- -指定出来るフック関数っぽいものは2種類です。
-DECODER は、元のメッセージを解析する時
-(parse ()) に適宜呼び出されます。
-ENCODER は、メッセージとして文字列化する際
-(stringify () など) に適宜呼び出されます。
これらの関数は、当然、当該処理が呼び出される前に指定しておく -必要があります。 -Message::Entity->parse などする前に -定義しておくと良いでしょう。
- -
-require Message::MIME::Charset;
-$Message::MIME::Charset::DECODER{'*default'} = sub {jcode::euc ($_[1])};
-$Message::MIME::Charset::ENCODER{'*default'} = sub {jcode::jis ($_[1], 'euc')};
-
-
-この例では、 jcode.pl を変換処理に使います。
-(もちろん、既に require
-されていると仮定しています。)
最初の require で、変換処理を担当している
-Message::MIME::Charset を読み込みます。
-(こうしておかないと、後から既定値 (= 無変換) で
-*default が上書きされてしまいます。)
この code を使ったスクリプトは内部処理を日本語 EUC
-で行うと仮定しています。ですから、 DECODER
-で日本語 EUC に変換します。
また、日本語メッセージでは ISO-2022-JP
-を使うのが慣習ですから、 ENCODER
-では 7ビット JIS に変換しています。
処理を行う関数は、引数が2つ以上与えられます。
-1つ目の引数は呼び出した class module, いわゆる
-$self です。(この場合 self ではありませんが:-)
-でも普通は必要ないでしょう。
2つ目の引数は処理対象の文字列です。
-3つ目以降の引数は、追加オプションのハッシュです。 -ただし、現在追加オプションは定義されていません。
-関数が返す値は(今のところ)一つだけです。
-処理が終わった文字列です。変換結果として何もなくなってしまったら、
-もちろん空文字列を返して構いません。 (undef
-よりも空文字列の方が望ましいでしょう。)
さて、上記の例では「*default」の EN/DECODER
-を指定しましたが、ここには代わりに charset 名を指定出来ます。
-$Message::MIME::Charset::DECODER{'iso-2022-jp'} = sub {jcode::euc ($_[1], 'jis')};
-
-
-ここでは、 ISO-2022-JP を内部コードに変換する
-方法を定義しています。 charset 名 (および「*default」
-は必ず小文字で書いて下さい!)
MIME body や、 encoded-word, RFC 2231 の拡張パラメーター値
-など、 charset が指定されている時はその charset 名の変換関数が
-呼び出されます。 (指定された charset 名の変換関数が未定義の時は、
-何も処理しません。) これ以外の場面では、 *default
-で定義された関数が使われます。
最後に、日本語メッセージを扱う際の例を挙げておきます。
- --## jcode.pl を使用 -require 'jcode.pl'; -require Message::MIME::Charset; -$Message::MIME::Charset::DECODER{'*default'} = sub {jcode::euc ($_[1])}; -$Message::MIME::Charset::DECODER{'iso-2022-jp'} = sub {jcode::euc ($_[1], 'jis')}; -$Message::MIME::Charset::DECODER{'euc-jp'} = sub {$_[1]}; -$Message::MIME::Charset::DECODER{'shift_jis'} = sub {jcode::euc ($_[1], 'sjis')}; -$Message::MIME::Charset::ENCODER{'*default'} = sub { - my $s = $_[1]; - ## 正規化 - jcode::tr(\$s, - "\xa3\xb0-\xa3\xb9\xa3\xc1-\xa3\xda\xa3\xe1-\xa3\xfa\xa1\xf5". - "\xa1\xa4\xa1\xa5\xa1\xa7\xa1\xa8\xa1\xa9\xa1\xaa\xa1\xae". - "\xa1\xb0\xa1\xb2\xa1\xbf\xa1\xc3\xa1\xca\xa1\xcb\xa1\xce". - "\xa1\xcf\xa1\xd0\xa1\xd1\xa1\xdc\xa1\xf0\xa1\xf3\xa1\xf4". - "\xa1\xf6\xa1\xf7\xa1\xe1\xa2\xaf\xa2\xb0\xa2\xb2\xa2\xb1". - "\xa1\xe4\xa1\xe3\xA1\xC0\xA1\xA1" - => '0-9A-Za-z&,.:;?!`^_/|()[]{}+$%#*@=\'"~-><\\ '); - jcode::jis ($s, 'euc', 'z') -}; -- -
-## Jcode.pm を使用
-use Jcode;
-require Message::MIME::Charset;
-$Message::MIME::Charset::DECODER{'*default'} = sub {jcode::euc ($_[1])};
-$Message::MIME::Charset::DECODER{'iso-2022-jp'} = sub {Jcode->new ($_[1], 'jis')->euc};
-$Message::MIME::Charset::DECODER{'euc-jp'} = sub {$_[1]};
-$Message::MIME::Charset::DECODER{'shift_jis'} = sub {Jcode->new ($_[1], 'sjis')->euc};
-$Message::MIME::Charset::DECODER{'utf-8'} = sub {Jcode->new ($_[1], 'utf8')->euc};
-$Message::MIME::Charset::ENCODER{'*default'} = sub {Jcode->new ($_[1], 'euc')->jis};
-$Message::MIME::Charset::ENCODER{'utf-8'} = sub {Jcode->new ($_[1], 'euc')->utf8};
-
-
-Perl 5.8 で Encode モジュールが使えるようになれば、 -もっと楽になると期待しています。
- - -$B$?$H$($P(B Perl $B$G=q$+$l$?(B CGI script, $B$=$l$b7G<(HD$J$s$+$K$O!"(B +$B$3$s$J$/$@$i$J$$(B code $B$,:\$C$F$$$?$j$7$^$9!#(B
+ ++jcode'convert(*from, "jis"); +jcode'convert(*subject, "jis"); +jcode'convert(*message, "jis"); +open (MAIL, "| $sendmail"); +print MAIL "From: $mail ($from)\n"; +print MAIL "To: $mailto\n"; +print MAIL "Subject: $subject\n"; +print MAIL "\n"; +print MAIL "$message"; +print MAIL "\n"; +close (MAIL); ++ +
$B$3$l$G$O;kG'@-$bNI$/$J$$$G$9$7!"$&$C$+$j=$@5$74V0c$($k$H(B
+$BJQ$J%a%C%;!<%8$rAw?.$7$F$7$^$$$^$9!#(B
+($BI. $B%*%V%8%'%/%H;X8~$r CPAN $B$rC5$9$H!"(B
+$B$3$l$K;w$?$h$&$J$3$H$,$G$-$=$&$J%b%8%e!<%k$O$"$k$h$&$G$9$,!"(B
+$B $B;29M(B: $B!V(B.$B!W$N>l9g$O(B RFC 2822 $BE*$K$O@5$7$/2rESCAPE $B$G$bF1$8$h$&$K$J$j$^$9!#(B
+$B$3$A$i$O40A4$K4V0c$$$G$9!#(B $B;29M(B: $B $B$H$$$&$3$H$G!"$O$8$a$O4{B8$N%b%8%e!<%k$N(B wrapper ($B$"$k$$$OJd40(B)
+$B$r=q$/$D$b$j$G$7$?$,!"$J$s$@$+$4$A$c$4$A$c$7$F$$$F!"(B
+$B$=$l$J$i Message-ID $B$N@8@.$K$3$l$i$r;HMQ$9$k>l9g$N$_!"(B
+ $B$3$l$i$,MQ0U$5$l$F$$$J$$4D6-$G$O%(%i!<$K$J$k$N$G!"(B
+ ($B8=>u$G$O(B) $B>e5-%b%8%e!<%k$N3:EvItJ,$r=q$-49$($FBP=h$7$F2<$5$$!#(B $BF|K\8l%a%C%;!<%8$r07$&$J$iI,?\$G$7$g$&!#(B
+ $B>\$7$/$O(B$BJ8;z%3!<%I$N07$$(B
+ $B$N>O$r$4;2>H2<$5$$!#(B suika.fam.cx $B$N(B SSH account $B$r$*;}$A$N>l9g!"(B CVS $B$+$iF~ $ cvs -d :ext:username@suika.fam.cx:/home/cvs -d perl/lib/Message/ Web $B$+$i$b Message::* Perl modules $B$O<+M3%=%U%H%&%'%"$G$9!#(B
+GNU GPL $B$K=>$C$FMxMQ=PMh$^$9!#>\$7$/$O3F%U%!%$%k$r8fMw2<$5$$!#(B $BH\$7$$$3$H$GF,$rG:$^$9$N$O7y$J$N$G(B($BON(B)$B!"(B
+Message::* $B$OId9f2=J}K!FHN)(B (CSI) $B$rL\;X$7$F ($B$b$A$m$s!"(B RFC 822 $B$J$I3F;EMM$K>H$i$7$F@5E}(B($BE*(B)$B$G(B
+$B$"$kI,MW$,$"$j$^$9!#(B $B4{Dj$N>uBV$G$OJ8;z%3!<%I$K4X78$9$kJQ49=hM}$O9T$o$l$^$;$s!#(B
+$B$7$+$7!"%U%C%/4X?t$C$]$$$b$N(B($BFf(B)$B$r;XDj$9$k$3$H$G!"(B
+$BJQ49=hM}$r$5$;$i$l$^$9!#(B $B;XDj=PMh$k%U%C%/4X?t$C$]$$$b$N$O(B2$B $B$3$l$i$N4X?t$O!"EvA3!"Ev3:=hM}$,8F$S=P$5$l$kA0$K;XDj$7$F$*$/(B
+$BI,MW$,$"$j$^$9!#(B
+Message::Entity->parse $B$J$I$9$kA0$K(B
+$BDj5A$7$F$*$/$HNI$$$G$7$g$&!#(B $B$3$NNc$G$O!"(B jcode.pl $B$rJQ49=hM}$K;H$$$^$9!#(B
+($B$b$A$m$s!"4{$K(B $B:G=i$N(B $B$3$N(B code $B$r;H$C$?%9%/%j%W%H$OFbIt=hM}$rF|K\8l(B EUC
+$B$G9T$&$H2>Dj$7$F$$$^$9!#$G$9$+$i!"(B $B$^$?!"F|K\8l%a%C%;!<%8$G$O(B $B=hM}$r9T$&4X?t$O!"0z?t$,(B2$B$D0J>eM?$($i$l$^$9!#(B
+1$B$DL\$N0z?t$O8F$S=P$7$?(B class module, $B$$$o$f$k(B
+ 2$B$DL\$N0z?t$O=hM}BP>]$NJ8;zNs$G$9!#(B 3$B$DL\0J9_$N0z?t$O!"DI2C%*%W%7%g%s$N%O%C%7%e$G$9!#(B
+$B$?$@$7!"8=:_DI2C%*%W%7%g%s$ODj5A$5$l$F$$$^$;$s!#(B $B4X?t$,JV$9CM$O(B($B:#$N$H$3$m(B)$B0l$D$@$1$G$9!#(B
+$B=hM}$,=*$o$C$?J8;zNs$G$9!#JQ497k2L$H$7$F2?$b$J$/$J$C$F$7$^$C$?$i!"(B
+$B$b$A$m$s6uJ8;zNs$rJV$7$F9=$$$^$;$s!#(B ( $B$5$F!">e5-$NNc$G$O!V(B $B$3$3$G$O!"(B MIME body $B$d!"(B encoded-word, RFC 2231 $B$N3HD%%Q%i%a!<%?! $B:G8e$K!"F|K\8l%a%C%;!<%8$r07$&:]$NNc$r5s$2$F$*$-$^$9!#(B Perl 5.8 $B$G(B Encode $B%b%8%e!<%k$,;H$($k$h$&$K$J$l$P!"(B
+$B$b$C$H3Z$K$J$k$H4|BT$7$F$$$^$9!#(B
+use Message::Entity;
+my $msg = new Message::Entity;
+my $hdr = $msg->header;
+$hdr->add ('From')->add ('me@bar.example');
+$hdr->add ('To')->add ('foo@bar.example', display_name => 'Mr. foo');
+$hdr->add ('Subject' => $subject);
+$msg->body ($body);
+
+# $smtp->send $B$O(B SMTP $B$GAw?.$9$k(B method $B$H2>Dj!#(B
+$smtp->send ($msg);
+
+
+To: $BNN0h$K;H$C$F$$$k(B
+display_name $B$G!V(B.$B!W$,4^$^$l$^$9$,!"(B
+RFC 2822 $BE*$K$O?7$7$$%a%C%;!<%8$G$O8_49@-$N$?$a(B
+quoted-string
+$B$K$9$kI,MW$,$"$j$^$9!#$7$+$7$=$N$^$^=PNO$5$l$^$9!#(B)$BFC?'(B ($B$H$$$&Dx$N$b$N$G$b$J$$!#(B)
+
+
+
+
+group $B$r2rMessage-ID $B$r@8@.=PMh$^$9!#(B$B3F;EMM$X$NBP1~>u67(B
+
+
+
+
+Content-Transfer-Encoding
+$B$H0l=o$KContent-Disposition) $B$KBP1~$7$F$$$^$9!#(B
+$B%Q%i%a!<%?!encoded-word)
+$B$N2rFI$KBP1~$7$F$$$^$9(B:-) $BC"$7JLESJQ49=hM}$r;XDj$9$kI,MW$,$"$j$^$9!#(B
+($BJ8;z%3!<%I$N07$$(B$B;2>H(B)Content-Location $B$K$bBP1~$7$F$$$^$9!#(B$B@)8B;v9`(B
+
+
+
+
+CR $B$d(B LF $B$,C1BN$G=P8=$9$k>l9g!"(B
+$B@5$7$/=hM}=PMh$^$;$s!#(B (CRLF $B$HEy2A$H$_$J$7$^$9!#(B)
+$B>-Mh$NHG$G$O%*%W%7%g%s$G@)8f2DG=$K$J$k$+$b$7$l$^$;$s!#(B$B:#8e$NM=Dj(B
+
+
+
+
+MIME $B$NF,NN0h$Nbody) $B$N$BJ8;zId9fJQ49$N$?$a$N(B hook $B$N$BI,MW4D6-(B
+
+
+
+
+comment
+ $B$rI=$9$N$K@55,I=8=(B (??{ code })
+ $B$r;H$C$F$$$k$N$G!"$3$l$r2rMessage::Field::MsgID::MsgID $B$,;H$$$^$9!#(B$BF~
$B%i%$%;%s%9(B
+
+$B;29MJ88%(B
+
+
+
+$BJ8;z%3!<%I$N07$$(B
+
+atom
+$B$K(B8$B%S%C%H!&%3!<%I$,4^$^$l$F$$$k$H@5$7$/07$($^$;$s!#(B)
+($BAa$$OC$,!"(B quoted-string
+$B$J$I$G$O(B8$B%S%C%HF)2a$@$H$$$&$3$H$G$9!#2s$j$/$I$/$F$4$a$s$J$5$$!#(B)parse ()) $B$KE,598F$S=P$5$l$^$9!#(B
+ENCODER $B$O!"%a%C%;!<%8$H$7$FJ8;zNs2=$9$k:](B
+(stringify () $B$J$I(B) $B$KE,598F$S=P$5$l$^$9!#(B
+require Message::MIME::Charset;
+$Message::MIME::Charset::DECODER{'*default'} = sub {jcode::euc ($_[1])};
+$Message::MIME::Charset::ENCODER{'*default'} = sub {jcode::jis ($_[1], 'euc')};
+
+
+require
+$B$5$l$F$$$k$H2>Dj$7$F$$$^$9!#(B)require $B$G!"JQ49=hM}$rC4Ev$7$F$$$k(B
+Message::MIME::Charset $B$rFI$_9~$_$^$9!#(B
+($B$3$&$7$F$*$+$J$$$H!"8e$+$i4{DjCM(B (= $BL5JQ49(B) $B$G(B
+*default $B$,>e=q$-$5$l$F$7$^$$$^$9!#(B)DECODER
+$B$GF|K\8l(B EUC $B$KJQ49$7$^$9!#(BISO-2022-JP
+$B$r;H$&$N$,47=,$G$9$+$i!"(B ENCODER
+$B$G$O(B 7$B%S%C%H(B JIS $B$KJQ49$7$F$$$^$9!#(B$self $B$G$9!#(B($B$3$N>l9g(B self $B$G$O$"$j$^$;$s$,(B:-)
+$B$G$bIaDL$OI,MW$J$$$G$7$g$&!#(Bundef
+$B$h$j$b6uJ8;zNs$NJ}$,K>$^$7$$$G$7$g$&!#(B)*default$B!W$N(B EN/DECODER
+$B$r;XDj$7$^$7$?$,!"$3$3$K$OBe$o$j$K(B charset $BL>$r;XDj=PMh$^$9!#(B
+$Message::MIME::Charset::DECODER{'iso-2022-jp'} = sub {jcode::euc ($_[1], 'jis')};
+
+
+ISO-2022-JP $B$rFbIt%3!<%I$KJQ49$9$k(B
+$BJ}K!$rDj5A$7$F$$$^$9!#(B charset $BL>(B ($B$*$h$S!V(B*default$B!W(B
+$B$OI,$:>.J8;z$G=q$$$F2<$5$$(B!)*default
+$B$GDj5A$5$l$?4X?t$,;H$o$l$^$9!#(B
+## jcode.pl $B$r;HMQ(B
+require 'jcode.pl';
+require Message::MIME::Charset;
+$Message::MIME::Charset::DECODER{'*default'} = sub {jcode::euc ($_[1])};
+$Message::MIME::Charset::DECODER{'iso-2022-jp'} = sub {jcode::euc ($_[1], 'jis')};
+$Message::MIME::Charset::DECODER{'euc-jp'} = sub {$_[1]};
+$Message::MIME::Charset::DECODER{'shift_jis'} = sub {jcode::euc ($_[1], 'sjis')};
+$Message::MIME::Charset::ENCODER{'*default'} = sub {
+ my $s = $_[1];
+ ## $B@55,2=(B
+ jcode::tr(\$s,
+ "\xa3\xb0-\xa3\xb9\xa3\xc1-\xa3\xda\xa3\xe1-\xa3\xfa\xa1\xf5".
+ "\xa1\xa4\xa1\xa5\xa1\xa7\xa1\xa8\xa1\xa9\xa1\xaa\xa1\xae".
+ "\xa1\xb0\xa1\xb2\xa1\xbf\xa1\xc3\xa1\xca\xa1\xcb\xa1\xce".
+ "\xa1\xcf\xa1\xd0\xa1\xd1\xa1\xdc\xa1\xf0\xa1\xf3\xa1\xf4".
+ "\xa1\xf6\xa1\xf7\xa1\xe1\xa2\xaf\xa2\xb0\xa2\xb2\xa2\xb1".
+ "\xa1\xe4\xa1\xe3\xA1\xC0\xA1\xA1"
+ => '0-9A-Za-z&,.:;?!`^_/|()[]{}+$%#*@=\'"~-><\\ ');
+ jcode::jis ($s, 'euc', 'z')
+};
+
+
+
+## Jcode.pm $B$r;HMQ(B
+use Jcode;
+require Message::MIME::Charset;
+$Message::MIME::Charset::DECODER{'*default'} = sub {jcode::euc ($_[1])};
+$Message::MIME::Charset::DECODER{'iso-2022-jp'} = sub {Jcode->new ($_[1], 'jis')->euc};
+$Message::MIME::Charset::DECODER{'euc-jp'} = sub {$_[1]};
+$Message::MIME::Charset::DECODER{'shift_jis'} = sub {Jcode->new ($_[1], 'sjis')->euc};
+$Message::MIME::Charset::DECODER{'utf-8'} = sub {Jcode->new ($_[1], 'utf8')->euc};
+$Message::MIME::Charset::ENCODER{'*default'} = sub {Jcode->new ($_[1], 'euc')->jis};
+$Message::MIME::Charset::ENCODER{'utf-8'} = sub {Jcode->new ($_[1], 'euc')->utf8};
+
+
+$Date: 2002/04/01 09:22:42 $
+
+