Comment puis-je convertir des messages dans un fichier mbox en UTF-8?

Question

J'essaie de modifier le programme ci-dessous pour m'assurer que chaque message est converti en utf-8 en utilisant Encode :: decode(), mais je ne sais pas comment et où le placer pour le faire fonctionner.

#!/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 

} 

Answer 1

Rien dans le script semble spécifier quel encodage vous attendez que l'entrée soit dans ... normalement ce qui est important puisque la détection automatique des encodages de caractères en dur (et généralement pas pris en charge par le codage des bibliothèques).

Answer 2

De la documentation Je suppose que vous voulez remplacer

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

avec

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

Bien que je ne suis pas complètement sûr et il ne peut rien du tout.