Hippo2000 (2000/7/28)
LWP::MediaTypesモジュールなのです。
作者はGisle Aasさんです。メールで許可をいただきました。
LWP::MediaTypes - ファイルまたはURLのためのメディアタイプを答えます
use LWP::MediaTypes qw(guess_media_type);
$type = guess_media_type("/tmp/foo.gif");
このモジュールはメディア(MIMEとしても知られる)タイプとエンコーディングを扱うための関数を提供します。ファイル拡張子からメディア・タイプへのマッピングはmedia.types ファイルによって定義されます。もし ~/.media.types ファイルが存在すれば、代わりにそれが使われます。以前のものとの互換性を保つために、~/.mime.typesも探します。
以下の関数がデフォルトでエクスポートされます:
ファイル名を見てもタイプがわからなければ、guess_media_typeは-T Perl演算子を使います。もしこれが働けば(そして-TがTRUEを返せば)、タイプとしてtext/plain を返します。そうでなければapplication/octet-streamをタイプとして返します。
例:
@suffixes = media_suffix('image/*', 'audio/basic');
$suffix = media_suffix('text/html');
以下の関数は明示的に要求によってのみエクスポートされます:
例:
add_type("x-world/x-vrml" => qw(wrl vrml));
例:
add_encoding("x-gzip" => "gz");
例:
read_media_types("conf/mime.types");
Copyright 1995-1999 Gisle Aas.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
ご意見、ご質問はこちらの掲示板で受け付けています。
またメールは河馬屋(Nifty)にお願いします。