home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _22ab0b5e868f83d3d9a1f9c44c878639 < prev    next >
Encoding:
Text File  |  2000-03-23  |  4.4 KB  |  121 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>LWP::MediaTypes - guess media type for a file or a URL</TITLE>
  5. <LINK REL="stylesheet" HREF="../../../Active.css" TYPE="text/css">
  6. <LINK REV="made" HREF="mailto:">
  7. </HEAD>
  8.  
  9. <BODY>
  10. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  11. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  12. <STRONG><P CLASS=block> LWP::MediaTypes - guess media type for a file or a URL</P></STRONG>
  13. </TD></TR>
  14. </TABLE>
  15.  
  16. <A NAME="__index__"></A>
  17. <!-- INDEX BEGIN -->
  18.  
  19. <UL>
  20.  
  21.     <LI><A HREF="#name">NAME</A></LI><LI><A HREF="#supportedplatforms">SUPPORTED PLATFORMS</A></LI>
  22.  
  23.     <LI><A HREF="#synopsis">SYNOPSIS</A></LI>
  24.     <LI><A HREF="#description">DESCRIPTION</A></LI>
  25.     <LI><A HREF="#copyright">COPYRIGHT</A></LI>
  26. </UL>
  27. <!-- INDEX END -->
  28.  
  29. <HR>
  30. <P>
  31. <H1><A NAME="name">NAME</A></H1>
  32. <P>LWP::MediaTypes - guess media type for a file or a URL</P>
  33. <P>
  34. <HR>
  35. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  36. <UL>
  37. <LI>Linux</LI>
  38. <LI>Solaris</LI>
  39. <LI>Windows</LI>
  40. </UL>
  41. <HR>
  42. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  43. <PRE>
  44.  use LWP::MediaTypes qw(guess_media_type);
  45.  $type = guess_media_type("/tmp/foo.gif");</PRE>
  46. <P>
  47. <HR>
  48. <H1><A NAME="description">DESCRIPTION</A></H1>
  49. <P>This module provides functions for handling media (also known as
  50. MIME) types and encodings.  The mapping from file extentions to media
  51. types is defined by the <EM>media.types</EM> file.  If the <EM>~/.media.types</EM>
  52. file exists it is used instead.
  53. For backwards compatability we will also look for <EM>~/.mime.types</EM>.</P>
  54. <P>The following functions are exported by default:</P>
  55. <DL>
  56. <DT><STRONG><A NAME="item_guess_media_type">guess_media_type($filename_or_url, [$header_to_modify])</A></STRONG><BR>
  57. <DD>
  58. This function tries to guess media type and encoding for a file or url.
  59. It returns the content-type, which is a string like <CODE>"text/html"</CODE>.
  60. In array context it also returns any content-encodings applied (in the
  61. order used to encode the file).  You can pass a URI object
  62. reference, instead of the file name.
  63. <P>If the type can not be deduced from looking at the file name,
  64. then <A HREF="#item_guess_media_type"><CODE>guess_media_type()</CODE></A> will let the <CODE>-T</CODE> Perl operator take a look.
  65. If this works (and <CODE>-T</CODE> returns a TRUE value) then we return
  66. <EM>text/plain</EM> as the type, otherwise we return
  67. <EM>application/octet-stream</EM> as the type.</P>
  68. <P>The optional second argument should be a reference to a HTTP::Headers
  69. object or any object that implements the $obj->header method in a
  70. similar way.  When it is present the values of the
  71. 'Content-Type' and 'Content-Encoding' will be set for this header.</P>
  72. <P></P>
  73. <DT><STRONG><A NAME="item_media_suffix"><CODE>media_suffix($type,...)</CODE></A></STRONG><BR>
  74. <DD>
  75. This function will return all suffixes that can be used to denote the
  76. specified media type(s).  Wildcard types can be used.  In a scalar
  77. context it will return the first suffix found.
  78. <P>Examples:</P>
  79. <PRE>
  80.   @suffixes = media_suffix('image/*', 'audio/basic');
  81.   $suffix = media_suffix('text/html');</PRE>
  82. <P></P></DL>
  83. <P>The following functions are only exported by explict request:</P>
  84. <DL>
  85. <DT><STRONG><A NAME="item_add_type">add_type($type, @exts)</A></STRONG><BR>
  86. <DD>
  87. Associate a list of file extensions with the given media type.
  88. <P>Example:</P>
  89. <PRE>
  90.     add_type("x-world/x-vrml" => qw(wrl vrml));</PRE>
  91. <P></P>
  92. <DT><STRONG><A NAME="item_add_encoding">add_encoding($type, @ext)</A></STRONG><BR>
  93. <DD>
  94. Associate a list of file extensions with an encoding type.
  95. <P>Example:</P>
  96. <PRE>
  97.  add_encoding("x-gzip" => "gz");</PRE>
  98. <P></P>
  99. <DT><STRONG><A NAME="item_read_media_types"><CODE>read_media_types(@files)</CODE></A></STRONG><BR>
  100. <DD>
  101. Parse media types files and add the type mappings found there.
  102. <P>Example:</P>
  103. <PRE>
  104.     read_media_types("conf/mime.types");</PRE>
  105. <P></P></DL>
  106. <P>
  107. <HR>
  108. <H1><A NAME="copyright">COPYRIGHT</A></H1>
  109. <P>Copyright 1995-1999 Gisle Aas.</P>
  110. <P>This library is free software; you can redistribute it and/or
  111. modify it under the same terms as Perl itself.</P>
  112. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  113. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  114. <STRONG><P CLASS=block> LWP::MediaTypes - guess media type for a file or a URL</P></STRONG>
  115. </TD></TR>
  116. </TABLE>
  117.  
  118. </BODY>
  119.  
  120. </HTML>
  121.