如何從MIME :: Entity部分的內容處置中獲取名稱？

Question

my $Parser = new MIME::Parser; 
my $entity = $Parser->parse_data($body); 
my @parts = $entity->parts; 
for $part(@parts){ 
    my $type=$part->mime_type; 
    my $bhandle=$part->bodyhandle; 

    $header = $part->head(); 
    $content_disp = $header->get('Content-Disposition'); 

    if ($type =~ /text/i){ 
     $bodydata = ""; 
     if (my $io = $part->open("r")) { 
      while (defined($_ = $io->getline)) { 
       $bodydata .= $_; 
      } 
      $io->close; 
      print $bodydata; 
     } 
    } 
} 

Answer 1

我認爲你正在尋找的recommended_filename方法：

$header = $part->head(); 
$filename = $header->recommended_filename; 

一定要檢查返回值的理智。請注意，它也可以是undef。