MIME::Explode - MIMEメッセージを解体するためのPerl拡張 new( output_dir => "tmp", mkdir => 0755, decode_subject => 1, check_content_type => 1, exclude_types => ["image/gif", "image/jpeg", "image/png"], ); ]]> nmsgs, "\n"; ]]> file.tmp") or die("Couldn't open file.tmp for writing: $!\n"); my $headers = $explode->parse(\*MAIL, \*OUTPUT); close(OUTPUT); close(MAIL); ]]> {$part}})) { if(ref($headers->{$part}->{$k}) eq "ARRAY") { for my $i (0 .. $#{$headers->{$part}->{$k}}) { print "$part => $k => $i => ", $headers->{$part}->{$k}->[$i], "\n"; } } elsif(ref($headers->{$part}->{$k}) eq "HASH") { for my $ks (keys(%{$headers->{$part}->{$k}})) { if(ref($headers->{$part}->{$k}->{$ks}) eq "ARRAY") { print "$part => $k => $ks => ", join(($ks eq "charset") ? " " : "", @{$headers->{$part}->{$k}->{$ks}}), "\n"; } else { print "$part => $k => $ks => ", $headers->{$part}->{$k}->{$ks}, "\n"; } print "$part => $k => $ks => ", $headers->{$part}->{$k}->{$ks}, "\n"; } } else { print "$part => $k => ", $headers->{$part}->{$k}, "\n"; } } } ]]> MIME::ExplodeはシングルあるいはマルチパートのMIMEメッセージを 解析、デーコードし、そのデコードされた構成物を与えられたディレクトリに 出力するためのモジュールです。 つまりこのモジュールは、ユーザーがMIMEでエンコードされたeメール・ メッセージやメールボックスの添付ファイルを取り出すことを可能にします。 このメソッドは新しいMIME::Explodeオブジェクトを作成します。以下のキーを 利用することができます: output_dir デコードされたファイルが置かれるディレクトリ mkdir => octal_number 値に8進数の数字が設定されていれば、output_dirディレクトリを作成します。 (例: mkdir => 0755). check_content_type => 0 あるいは 1 値が1に設定されると、ファイルのcontent-typeがチェックされます。 decode_subject => 0 あるいは 1 値が1に設定されると、件名がリストにデコードされます。 {'0.0'}->{subject}->{value} = [ARRAYREF]; $header->{'0.0'}->{subject}->{charset} = [ARRAYREF]; $subject = join("", @{$header->{'0.0'}->{subject}->{value}}); ]]> exclude_types => [ARRAYREF] 指定されたcontent-typeのファイルを保存しません。 このメソッドはストリムを解析し、それを構成している要素に分割します。 このメソッドは全ての部品を持ったハッシュ・リファレンスを返します。 FILEHANDLEはBLOBへのリファレンスでなければなりません。 2番目の引数はオプションです。 解析されたメッセージの数を返します。 Henrique Dias <hdias@esb.ucp.pt> MIME::Tools, perl(1). 川合孝典 (kwitknr@cpan.org)