MIME :: Parser를 사용하면 일부 이메일을 디코딩하지 못합니다.

Question

저는 MIME의 파서를 해독하려고하는 초보자입니다. 나는 주로 작동하지만 코드에 결함이 있거나 메시지를 제대로 디코딩하지 못하게하는 다른 문제가 있습니다.

우분투 보안 메일 링리스트에서받은 이메일입니다. 어쨌든 그들은 텍스트 전체에 이상한 문자를 생성하고, 알파인으로 이메일을 읽는 것은 괜찮습니다. 여기

 Felix Wilhelm, Fermin J. Serna, Gabriel Campana and Kevin Hamacher 
 discovered that Dnsmasq incorrectly handled DNS requests. A remote 
 attacker could use this issue to cause Dnsmasq to crash, resulting in 
 a denial of service, or possibly execute arbitrary code. 
 (CVE-2017-14491)` 

내가 이것을 사용하고 코드 조각입니다 :이 디코딩 됐어요 후 다음

이메일에서 한 조각이다

use MIME::Parser; 
use MIME::Entity; 
use MIME::WordDecoder; 
use MIME::Tools; 
use MIME::Decoder; 
use Email::MIME; 
my $parser = MIME::Parser->new; 
$parser->extract_uuencode(1); 
$parser->extract_nested_messages(1); 
$parser->output_to_core(1); 
my $buf; 
while(<STDIN>){ 
     $buf .= $_; 
} 
my $entity = $parser->parse_data($buf); 
my $subject = $entity->head->get('Subject'); 
my $from = $entity->head->get('From'); 
my $AdvDate = $entity->head->get('Date'); 
my @mailData; 
my $msg = Email::MIME->new($buf); 
$msg->walk_parts(sub { 
    my ($part) = @_; 
    #warn($part->content_type . ": " . $part->subparts); 
    if (($part->content_type =~ /text\/plain$/i) && !@mailData) { 
     #print $part->body; 
     @mailData = split('\n', $part->body); 
    } 
    elsif (($part->content_type =~ /text\/plain; charset=\"?utf-8\"?/i) && !@mailData) { 
     #print $part->body; 
     @mailData = split('\n', $part->body); 
    } 
    elsif (($part->content_type =~ /text\/plain; charset=\"?us-ascii\"?/i) && !@mailData) { 
     #print $part->body; 
     @mailData = split('\n', $part->body); 
    } 
    elsif (($part->content_type =~ /text\/plain; charset=\"?windows-1252\"?/i) && !@mailData) { 
     #print $part->body; 
     @mailData = split('\n', $part->body); 
    } 
    elsif (($part->content_type =~ /text\/plain; charset=\"?iso-8859-1\"?/i) && !@mailData) { 
     #print $part->body; 
     @mailData = split('\n', $part->body); 
    } 
}); 

는 나중에 나는 $ 버피에 다양한 작업을 할 그것을 데이터베이스에 쓰기 전에.

여기

https://pastebin.com/raw/2csUvWup

이 문제가 발생 제가 제대로이 이메일을 디코딩 제공 할 수있는 다른 어떤 정보를 알려 주시기 바랍니다 이메일 중 하나의 사본을 배치했습니다.

Answer 1

불행히도 링크하는 예가 질문에 포함 된 예와 일치하지 않습니다. 또한 코드에는 출력이 완료된 위치와 방법이 표시되지 않습니다. 즉, Minimal, Complete, and Verifiable example을 제공하지 않고 대신 수행중인 작업을 표시하지만 실제로 수행 한 작업을 표시하지 않는 조각 만 표시합니다.

이 정보를 바탕으로 문제의 원인을 추측 할 수는 있지만이 추측을 확인할 수는 없습니다. 내 생각 엔 Email::MIME::body_str 대신 Email::MIME::body을 사용하는 데 문제가 있다는 것입니다. body"디코딩 및 바이트 스트링 같이 객체 본문을 반환"문서화 charset 인코딩뿐만 아니라 body_str는 "(본문 방법 등)을 상기 몸체의 콘텐츠 전송 인코딩 계층 모두를 디코딩 동안 을 같이 (본문 메서드와 달리), 유니 코드 문자열 "을 반환합니다. 즉

, body는 원료 옥텟 UTF-8 인코딩 된 메시지의, body_str 대신 문자을 제공을 제공합니다. 그리고 마지막 것은 아마 당신이 실제로 원하는 것일 것입니다.