Как проверить тип загруженного файла MIME с помощью Perl CGI?

Question

Я пытаюсь получить MIME-тип элемента <input type="file" />, используя Perl, но фактически не проверяя содержимое самого файла. Другими словами, просто используя заголовки HTTP.

Мне удалось получить только значение Content-Type "multipart / form-type", но я понимаю, что каждый элемент получит свой собственный MIME-тип?

Как я могу увидеть типы sub-MIME, используя Perl?

Answer 1

Я предполагаю, что вы используете CGI.pm для этого. Если вы используете интерфейс OO для CGI, вы можете сделать что-то вроде этого.

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'};