File::Type

MIMEタイプを判定する

use File::Type;
パッケージをロードする。

my $ft = new File::Type,
インスタンスを生成する。

my $mime = $ft->checktype_filename($filename)
ファイルを読み込んでMIMEタイプを判定して返す。ファイルオープンに失敗したらundefを返す。
~ を含むファイル名を渡すと正しく動作しないので注意が必要。内部的にsuしているのかも？

my $mime = $ft->checktype_contents($data);
データ内容をチェックしてMIMEタイプを判定して返す。

my $mime = $ft->mime_type($filename | $data);
ファイル・データ内容のいずれかを読み込んでMIMEタイプを判別して返す。