LWP::MediaTypesSection: User Contributed Perl Documentation (3)Updated: 2004-04-06 |
LWP::MediaTypesSection: User Contributed Perl Documentation (3)Updated: 2004-04-06 |
use LWP::MediaTypes qw(guess_media_type);
$type = guess_media_type("/tmp/foo.gif");
The following functions are exported by default:
If the type can not be deduced from looking at the file name, then guess_media_type() will let the "-T" Perl operator take a look. If this works (and "-T" returns a TRUE value) then we return text/plain as the type, otherwise we return application/octet-stream as the type.
The optional second argument should be a reference to a HTTP::Headers object or any object that implements the $obj->header method in a similar way. When it is present the values of the 'Content-Type' and 'Content-Encoding' will be set for this header.
@suffixes = media_suffix('image/*', 'audio/basic');
$suffix = media_suffix('text/html');
The following functions are only exported by explicit request:
add_type("x-world/x-vrml" => qw(wrl vrml));
add_encoding("x-gzip" => "gz");
read_media_types("conf/mime.types");
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.