home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _43d367e0d0839f07c192c58119d23764 < prev    next >
Text File  |  2000-03-23  |  4KB  |  97 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Text::Striphigh - Perl extension to strip the high bit off of ISO-8859-1 text.</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> Text::Striphigh - Perl extension to strip the high bit off of ISO-8859-1 text.</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="#maintenance">MAINTENANCE</A></LI>
  26.     <LI><A HREF="#bugs">BUGS</A></LI>
  27.     <LI><A HREF="#author">AUTHOR</A></LI>
  28. </UL>
  29. <!-- INDEX END -->
  30.  
  31. <HR>
  32. <P>
  33. <H1><A NAME="name">NAME</A></H1>
  34. <P>Text::Striphigh - Perl extension to strip the high bit off of ISO-8859-1 text.</P>
  35. <P>
  36. <HR>
  37. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  38. <UL>
  39. <LI>Linux</LI>
  40. <LI>Solaris</LI>
  41. <LI>Windows</LI>
  42. </UL>
  43. <HR>
  44. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  45. <PRE>
  46.   use Text::Striphigh 'striphigh'</PRE>
  47. <PRE>
  48.   $SevenBitsText = striphigh($TextContainingEightBitCharacters);</PRE>
  49. <P>
  50. <HR>
  51. <H1><A NAME="description">DESCRIPTION</A></H1>
  52. <P>The Text::Striphigh module exports a single function: <CODE>striphigh</CODE>. This
  53. function takes one argument, a string possibly containing high ASCII
  54. characters in the ISO-8859-1 character set, and transforms this into a
  55. string containing only 7 bits ASCII characters, by substituting every
  56. high bit character with a similar looking standard ASCII character, or
  57. with a sequence of standard ASCII characters.</P>
  58. <P>Because of precisely the deficiency this package tries to offer a workaround
  59. for is present in some of the things that process pod, there are no
  60. examples in this manpage. Look at the source or the test script if you
  61. want examples.</P>
  62. <P>
  63. <HR>
  64. <H1><A NAME="maintenance">MAINTENANCE</A></H1>
  65. <P>If you ever want to change the striphigh function yourself, then don't
  66. change the one containing the mile long <A HREF="../../../lib/Pod/perlfunc.html#item_tr"><CODE>tr{}{}</CODE></A> statement that you see
  67. at first, change the one behind the <CODE>__DATA__</CODE> that's a lot more readable.</P>
  68. <P>After you've done that, simply run the <CODE>Striphigh.pm</CODE> file through perl
  69. to generate a new version of the first routine, and in fact of the entire
  70. file, something like this:</P>
  71. <PRE>
  72.  perl -w Striphigh.pm > Striphigh.pm.new
  73.  mv Striphigh.pm.new Striphigh.pm</PRE>
  74. <P>
  75. <HR>
  76. <H1><A NAME="bugs">BUGS</A></H1>
  77. <P>Assumes the input text is ISO-8859-1, without even looking at the LOCALE
  78. settings.</P>
  79. <P>Some translations are probably less than optimal.</P>
  80. <P>People will be offended if you run their names through this function, and
  81. print the result on an envelope using an outdated printing device. However,
  82. it's probably better than having that printer print a name with a high ASCII
  83. character in it which happens to be the command to set the printer on fire.</P>
  84. <P>
  85. <HR>
  86. <H1><A NAME="author">AUTHOR</A></H1>
  87. <P>Jan-Pieter Cornet <<A HREF="mailto:johnpc@xs4all.nl">johnpc@xs4all.nl</A>></P>
  88. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  89. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  90. <STRONG><P CLASS=block> Text::Striphigh - Perl extension to strip the high bit off of ISO-8859-1 text.</P></STRONG>
  91. </TD></TR>
  92. </TABLE>
  93.  
  94. </BODY>
  95.  
  96. </HTML>
  97.