メール件名の表示について

質問

メールの受信表示をwebでするようにプログラムを作成しましたが、日本語の件名がきちんと表示されません。
「中国の消費者物価、４月は8.5％上昇・食料品など高止まり」が「中国の消費者物価、４月は8.5」のように途中で切れてしまいまいます。正しく表示させるにはどのようにしたらよいでしょうか？

以下はプログラムの抜粋です。
#!/usr/bin/perl

require 'lib/jcode.pl';

use CGI qw(:standard);
use Mail::POP3Client;
use Jcode;
（略）
foreach ( $pop -> Head( $i )) {
s/^Subject: (.*)/jcode($1)->mime_decode()->sjis/ie and $sub = $_;

回答No.1

atom_seed · ベストアンサー

長い件名は、メールヘッダー内に1行では書き出されません。

その為、複数行からのデコードに対応していない上記処理では途切れてしまうのです。

foreach でヘッダーの各行ごとに処理をする方法を一旦やめます。

１つのスカラー変数(たとえば$header)にヘッダーのすべての行をつなげて取り込ませます。
その後下記のように書くことで、%header に各ヘッダー項目が格納できます。

my %header = ( '', split( /(^[\w\-]+\: )/m, $header ) );
chomp %header;

今回は、件名がほしいので
$header{'Subject: '}をデコードさせて　 $sub に移し替えればOKです。

回答No.2

atom_seed

少しきれいに、かつ、具体的に書き直してみました。
これでどうでしょう？

my %header = ( '', split( /^([\w\-]*)\: /m, $header ) );
chomp %header;

$sub = jcode( $header{'Subject'} )->mime_decode()->sjis;

お礼

ありがとうございます。
大変助かります。

「１つのスカラー変数(たとえば$header)にヘッダーのすべての行をつなげて取り込ませます。」の部分について、具体的にどのように記述したよいでしょうか？

ご教授いただけると助かります。

補足

本来は、「お礼」で記載すべきかと思いますが、解決しましたので、ここでお礼をさせていただきます。

ありがとうございました。大変助かりました。