MIME :: Parser를 사용하여 메일에서 본문 부분을 가져 오는 방법은 무엇입니까?

Question

use MIME::Parser; 
use Data::Dumper qw(Dumper); 

$parser = MIME::Parser->new(); 
$parser->output_to_core(1); # don't write attachments to disk 

while (<STDIN>) { 
$MESSAGE .= $_; 
} 

$message = $parser->parse_data($MESSAGE); # die()s if can't parse 

$head = $message->head(); # object--see docs 
$preamble = $message->preamble; # ref to array of lines 
$epilogue = $message->epilogue; # ref to array of lines 

$num_parts = $message->parts; 
for (my $i=0; $i < $num_parts; $i++) { 
    print "part number = $i\n"; 
    my $part = $message->parts(1); 
    my $content_type = $part->mime_type; 
    my $body = $part->as_string; 
    print $body; 
} 

출력에서 ​​콘텐츠 헤더도 볼 수 있습니다. 메시지 본문 내용 만 배열로 가져 오는 프로세스가 있습니까?

미리 감사드립니다.

Answer 1

my $body = $part->as_string; 잘못되었습니다. MIME 파트 ($part은 클래스 MIME::Entity의 인스턴스 임)는 머리글과 본문 및 에필로그로 구성됩니다.

대신 my @body_encoded_lines = $part->body (줄의 목록) 또는 my $body_decoded_handle = $part->bodyhandle (예 : MIME::Body)이어야합니다.