如何使用Perl CGI检查上传文件的MIME类型？

Question

我正在尝试使用Perl获取<input type="file" />元素的MIME类型，但没有实际检查文件本身的内容，换句话说，只使用HTTP标头。

我只能获得“multipart / form-type”Content-Type值，但我的理解是每个元素都会获得自己的MIME类型？

如何使用Perl查看子MIME类型？

Answer 1

我假设您使用CGI.pm来执行此操作。如果您使用的是CGI的OO接口，您可以执行以下操作。

use strict;
use warnings;
use CGI;

my $cgi = CGI->new;

my $filename = $cgi->param('upload_param_name');
my $mimetype = $cgi->uploadInfo($filename)->{'Content-Type'};

如果您使用的是程序界面，则等效于：

use strict;
use warnings;
use CGI qw/param uploadInfo/;


my $filename = param('upload_param_name');
my $mimetype = uploadInfo($filename)->{'Content-Type'};