如何使用CGI :: Application获取上传文件的内容类型？

我正在尝试使用CGI :: Application处理Perl程序中的上传文件.我需要获取上传文件的内容类型.从我的阅读,以下应该工作,但它不适合我:

my $filename = $q->param("file");
my $contenttype = $q->uploadInfo($filename)->{'Content-Type'};

事实证明,$q->uploadInfo($filename)返回undef.那样做$q->uploadInfo("file").

有任何想法吗？

谢谢!

您相信上传的内容能为您提供良好的内容类型吗？我只是将上传的文件保存到磁盘并执行:

chomp(my $mime_type = qx!file -i $uploaded!);
$mime_type =~ s/^.*?: //;
$mime_type =~ s/;.*//;

虽然您可以使用File :: Type,File :: MMagic或File :: MimeInfo.