LWP::MediaTypes - guess media type for a file or a URL
use LWP::MediaTypes qw(guess_media_type); $type = guess_media_type("/tmp/foo.gif");
This module provides functions for handling of media (also known as MIME) types and encodings. The mapping from file extentions to media types is defined by the media.types file. If the ~/.media.types file exist it is used as a replacement. For backwards compatability we will also look for ~/.mime.types.
The following functions are exported by default:
- guess_media_type($filename_or_url, [$header_to_modify])
This function tries to guess media type and encoding for given file. It returns the content-type, which is a string like
"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, as the first parameter too.
If the type can not be deduced from looking at the file name only, then guess_media_type() will let the
-TPerl operator take a look. If this works (and
-Treturns 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 implement the $obj->header method in a similar way). When present we will set the values of the 'Content-Type' and 'Content-Encoding' for this header.
This function will return all suffixes that can be used to denote the specified media type(s). Wildcard types can be used. In scalar context it will return the first suffix found.
@suffixes = media_suffix('image/*', 'audio/basic'); $suffix = media_suffix('text/html');
The following functions are only exported by explict request:
- add_type($type, @exts)
Associate a list of file extensions with the given media type.
add_type("x-world/x-vrml" => qw(wrl vrml));
- add_encoding($type, @ext)
Associate a list of file extensions with and encoding type.
add_encoding("x-gzip" => "gz");
Parse a media types file from disk and add the type mappings found there.
Copyright 1995-1998 Gisle Aas.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.