如何使用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'};