マイコンピュータ
マイネットワーク
マイドキュメント
ごみ箱
perl module 忘備録
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タイプを判別して返す。
