如何从 MIME::Entity 部分的内容配置中获取名称？

Posted 2023-03-15

【中文标题】如何从 MIME::Entity 部分的内容配置中获取名称？

【英文标题】：How to get the name from content-disposition in MIME::Entity part?

【发布时间】：2011-11-20 03:24:55

【问题描述】：

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;
         
     

【参考方案1】：

我认为您正在寻找recommended_filename 方法：

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

请务必检查返回值是否正常。注意也可以是undef。