2

Encode::decode() を使用して各メッセージが utf-8 に変換されるように、以下のプログラムを変更しようとしていますが、これを機能させる方法と場所がわかりません。

#!/usr/bin/perl
use warnings;
use strict;
use Mail::Box::Manager;

open (MYFILE, '>>data.txt');
binmode(MYFILE, ':encoding(UTF-8)');


my $file = shift || $ENV{MAIL};
my $mgr = Mail::Box::Manager->new(
    access          => 'r',
);

my $folder = $mgr->open( folder => $file )
or die "$file: Unable to open: $!\n";

for my $msg ( sort { $a->timestamp <=> $b->timestamp } $folder->messages)
{
    my $to          = join( ', ', map { $_->format } $msg->to );
    my $from        = join( ', ', map { $_->format } $msg->from );
    my $date        = localtime( $msg->timestamp );
    my $subject     = $msg->subject;
    my $body        = $msg->decoded->string;

    # Strip all quoted text
    $body =~ s/^>.*$//msg;

    print MYFILE <<"";
From: $from
To: $to
Date: $date
Subject: $subject
\n
$body

}
4

2 に答える 2

0

スクリプトには、入力がどのエンコーディングであるかを指定しているようには見えません...通常、ハードでの文字エンコーディングの自動検出（および通常はエンコーディングライブラリではサポートされていない）なので、これは重要です。

于 2008-12-16T19:53:59.887 に答える
0

ドキュメントから、私はあなたが置き換えたいと思う

my $body        = $msg->decoded->string;

と

my $body        = $msg->decoded('UTF-8')->string;

完全にはわかりませんが、まったく問題ではないかもしれません。

于 2008-12-16T20:44:33.280 に答える