Section: User Contributed Perl Documentation (3pm)
use LWP::MediaTypes qw(guess_media_type); $type = guess_media_type("/tmp/foo.gif");
This module provides functions for handling media (also known as MIME) types and encodings. The mapping from file extensions to media types is defined by the media.types file. If the ~/.media.types file exists it is used instead. For backwards compatibility we will also look for ~/.mime.types.
The following functions are exported by default:
:guess_media_type( $filename )
:guess_media_type( $uri )
"text/html". In array context it also returns any content encodings applied (in the order used to encode the file). You can pass a URI object reference, instead of the file name.
"-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");:
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.
Tutoriais de Tecnologia Web