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

Question

我正在尝试使用 CGI::Application 在 Perl 程序中处理上传的文件。我需要获取上传文件的内容类型。根据我的阅读，以下内容应该有效，但不适合我:

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

事实证明，$q->uploadInfo($filename) 返回undef。 $q->uploadInfo("file") 也是如此。

有什么想法吗？

谢谢!

Answer 1

您相信上传的任何内容都会为您提供良好的内容类型吗？我只是将上传的文件保存到磁盘并执行以下操作:

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

尽管您可以使用 File::Type、File::MMagic 或 File::MimeInfo 来代替。