![](/img/trans.png)
[英]How can a Content-Disposition filename be matched using a regex?
[英]How to get the name from content-disposition in MIME::Entity part?
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;
}
}
}
我想你正在尋找的recommended_filename方法:
$header = $part->head();
$filename = $header->recommended_filename;
務必檢查返回值是否合理。 請注意,它也可以是undef
。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.