我正在尝试使用 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 来代替。
关于perl - 如何使用 CGI::Application 获取上传文件的内容类型?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/370215/