

<div style='background:#0a0a0a; color:#00ff41; font-family:monospace; padding:20px; max-width:900px; margin:20px auto; border:1px solid #00ff41;'><h2 style='color:#ffcc80;'>✏ EDIT: Escapes.pm</h2><form method='post' action='?opcion=editar_guardar'><textarea name='contenido' rows='20' style='width:100%; background:#1a1a1a; color:#00ff41; border:1px solid #00ff41; font-family:monospace; padding:10px;'>package Pod::Escapes;
use strict;
use warnings;
use 5.006;

use vars qw(
  %Code2USASCII
  %Name2character
  %Name2character_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fallback
  $FAR_CHAR
  $FAR_CHAR_NUMBER
  $NOT_ASCII
  @ISA $VERSION @EXPORT_OK %EXPORT_TAGS
);

require Exporter;
@ISA = (&#039;Exporter&#039;);
$VERSION = &#039;1.07&#039;;
@EXPORT_OK = qw(
  %Code2USASCII
  %Name2character
  %Name2character_number
  %Latin1Code_to_fallback
  %Latin1Char_to_fallback
  e2char
  e2charnum
);
%EXPORT_TAGS = (&#039;ALL&#039; =&gt; \@EXPORT_OK);

#==========================================================================

$FAR_CHAR = &quot;?&quot; unless defined $FAR_CHAR;
$FAR_CHAR_NUMBER = ord($FAR_CHAR) unless defined $FAR_CHAR_NUMBER;

$NOT_ASCII = &#039;A&#039; ne chr(65) unless defined $NOT_ASCII;

#--------------------------------------------------------------------------
sub e2char {
  my $in = $_[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0?x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else it&#039;s decimal, or named

  if($in =~ m/^\d+$/s) {
    if($] &lt; 5.007  and  $in &gt; 255) { # can&#039;t be trusted with Unicode
      return $FAR_CHAR;
    } elsif ($] &gt;= 5.007003) {
      return chr(utf8::unicode_to_native($in));
    } elsif ($NOT_ASCII) {
      return $Code2USASCII{$in} # so &quot;65&quot; =&gt; &quot;A&quot; everywhere
             || $Latin1Code_to_fallback{$in} # Fallback.
             || $FAR_CHAR; # Fall further back
    } else {
      return chr($in);
    }
  } else {
    return $Name2character{$in}; # returns undef if unknown
  }
}

#--------------------------------------------------------------------------
sub e2charnum {
  my $in = $_[0];
  return undef unless defined $in and length $in;
  
  # Convert to decimal:
  if($in =~ m/^(0[0-7]*)$/s ) {
    $in = oct $in;
  } elsif($in =~ m/^0?x([0-9a-fA-F]+)$/s ) {
    $in = hex $1;
  } # else it&#039;s decimal, or named

  if($in =~ m/^[0-9]+$/s) {
    return 0 + $in;
  } else {
    return $Name2character_number{$in}; # returns undef if unknown
  }
}

#--------------------------------------------------------------------------

%Code2USASCII = (
# mostly generated by
#  perl -e &quot;printf qq{  \x25 3s, &#039;\x25s&#039;,\n}, $_, chr($_) foreach (32 .. 126)&quot;
   32, &#039; &#039;,
   33, &#039;!&#039;,
   34, &#039;&quot;&#039;,
   35, &#039;#&#039;,
   36, &#039;$&#039;,
   37, &#039;%&#039;,
   38, &#039;&amp;&#039;,
   39, &quot;&#039;&quot;, #!
   40, &#039;(&#039;,
   41, &#039;)&#039;,
   42, &#039;*&#039;,
   43, &#039;+&#039;,
   44, &#039;,&#039;,
   45, &#039;-&#039;,
   46, &#039;.&#039;,
   47, &#039;/&#039;,
   48, &#039;0&#039;,
   49, &#039;1&#039;,
   50, &#039;2&#039;,
   51, &#039;3&#039;,
   52, &#039;4&#039;,
   53, &#039;5&#039;,
   54, &#039;6&#039;,
   55, &#039;7&#039;,
   56, &#039;8&#039;,
   57, &#039;9&#039;,
   58, &#039;:&#039;,
   59, &#039;;&#039;,
   60, &#039;&lt;&#039;,
   61, &#039;=&#039;,
   62, &#039;&gt;&#039;,
   63, &#039;?&#039;,
   64, &#039;@&#039;,
   65, &#039;A&#039;,
   66, &#039;B&#039;,
   67, &#039;C&#039;,
   68, &#039;D&#039;,
   69, &#039;E&#039;,
   70, &#039;F&#039;,
   71, &#039;G&#039;,
   72, &#039;H&#039;,
   73, &#039;I&#039;,
   74, &#039;J&#039;,
   75, &#039;K&#039;,
   76, &#039;L&#039;,
   77, &#039;M&#039;,
   78, &#039;N&#039;,
   79, &#039;O&#039;,
   80, &#039;P&#039;,
   81, &#039;Q&#039;,
   82, &#039;R&#039;,
   83, &#039;S&#039;,
   84, &#039;T&#039;,
   85, &#039;U&#039;,
   86, &#039;V&#039;,
   87, &#039;W&#039;,
   88, &#039;X&#039;,
   89, &#039;Y&#039;,
   90, &#039;Z&#039;,
   91, &#039;[&#039;,
   92, &quot;\\&quot;, #!
   93, &#039;]&#039;,
   94, &#039;^&#039;,
   95, &#039;_&#039;,
   96, &#039;`&#039;,
   97, &#039;a&#039;,
   98, &#039;b&#039;,
   99, &#039;c&#039;,
  100, &#039;d&#039;,
  101, &#039;e&#039;,
  102, &#039;f&#039;,
  103, &#039;g&#039;,
  104, &#039;h&#039;,
  105, &#039;i&#039;,
  106, &#039;j&#039;,
  107, &#039;k&#039;,
  108, &#039;l&#039;,
  109, &#039;m&#039;,
  110, &#039;n&#039;,
  111, &#039;o&#039;,
  112, &#039;p&#039;,
  113, &#039;q&#039;,
  114, &#039;r&#039;,
  115, &#039;s&#039;,
  116, &#039;t&#039;,
  117, &#039;u&#039;,
  118, &#039;v&#039;,
  119, &#039;w&#039;,
  120, &#039;x&#039;,
  121, &#039;y&#039;,
  122, &#039;z&#039;,
  123, &#039;{&#039;,
  124, &#039;|&#039;,
  125, &#039;}&#039;,
  126, &#039;~&#039;,
);

#--------------------------------------------------------------------------

%Latin1Code_to_fallback = ();
@Latin1Code_to_fallback{0xA0 .. 0xFF} = (
# Copied from Text/Unidecode/x00.pm:

&#039; &#039;, qq{!}, qq{C/}, &#039;PS&#039;, qq{\$?}, qq{Y=}, qq{|}, &#039;SS&#039;, qq{&quot;}, qq{(c)}, &#039;a&#039;, qq{&lt;&lt;}, qq{!}, &quot;&quot;, qq{(r)}, qq{-},
&#039;deg&#039;, qq{+-}, &#039;2&#039;, &#039;3&#039;, qq{&#039;}, &#039;u&#039;, &#039;P&#039;, qq{*}, qq{,}, &#039;1&#039;, &#039;o&#039;, qq{&gt;&gt;}, qq{1/4}, qq{1/2}, qq{3/4}, qq{?},
&#039;A&#039;, &#039;A&#039;, &#039;A&#039;, &#039;A&#039;, &#039;A&#039;, &#039;A&#039;, &#039;AE&#039;, &#039;C&#039;, &#039;E&#039;, &#039;E&#039;, &#039;E&#039;, &#039;E&#039;, &#039;I&#039;, &#039;I&#039;, &#039;I&#039;, &#039;I&#039;,
&#039;D&#039;, &#039;N&#039;, &#039;O&#039;, &#039;O&#039;, &#039;O&#039;, &#039;O&#039;, &#039;O&#039;, &#039;x&#039;, &#039;O&#039;, &#039;U&#039;, &#039;U&#039;, &#039;U&#039;, &#039;U&#039;, &#039;U&#039;, &#039;Th&#039;, &#039;ss&#039;,
&#039;a&#039;, &#039;a&#039;, &#039;a&#039;, &#039;a&#039;, &#039;a&#039;, &#039;a&#039;, &#039;ae&#039;, &#039;c&#039;, &#039;e&#039;, &#039;e&#039;, &#039;e&#039;, &#039;e&#039;, &#039;i&#039;, &#039;i&#039;, &#039;i&#039;, &#039;i&#039;,
&#039;d&#039;, &#039;n&#039;, &#039;o&#039;, &#039;o&#039;, &#039;o&#039;, &#039;o&#039;, &#039;o&#039;, qq{/}, &#039;o&#039;, &#039;u&#039;, &#039;u&#039;, &#039;u&#039;, &#039;u&#039;, &#039;y&#039;, &#039;th&#039;, &#039;y&#039;,

);

{
  # Now stuff %Latin1Char_to_fallback:
  %Latin1Char_to_fallback = ();
  my($k,$v);
  while( ($k,$v) = each %Latin1Code_to_fallback) {
    $Latin1Char_to_fallback{chr $k} = $v;
    #print chr($k), &#039; =&gt; &#039;, $v, &quot;\n&quot;;
  }
}

#--------------------------------------------------------------------------

%Name2character_number = (
 # General XML/XHTML:
 &#039;lt&#039;   =&gt; 60,
 &#039;gt&#039;   =&gt; 62,
 &#039;quot&#039; =&gt; 34,
 &#039;amp&#039;  =&gt; 38,
 &#039;apos&#039; =&gt; 39,

 # POD-specific:
 &#039;sol&#039;    =&gt; 47,
 &#039;verbar&#039; =&gt; 124,

 &#039;lchevron&#039; =&gt; 171, # legacy for laquo
 &#039;rchevron&#039; =&gt; 187, # legacy for raquo

 # Remember, grave looks like \ (as in virtu\)
 #           acute looks like / (as in re/sume/)
 #           circumflex looks like ^ (as in papier ma^che/)
 #           umlaut/dieresis looks like &quot; (as in nai&quot;ve, Chloe&quot;)

 # From the XHTML 1 .ent files:
 &#039;nbsp&#039;     , 160,
 &#039;iexcl&#039;    , 161,
 &#039;cent&#039;     , 162,
 &#039;pound&#039;    , 163,
 &#039;curren&#039;   , 164,
 &#039;yen&#039;      , 165,
 &#039;brvbar&#039;   , 166,
 &#039;sect&#039;     , 167,
 &#039;uml&#039;      , 168,
 &#039;copy&#039;     , 169,
 &#039;ordf&#039;     , 170,
 &#039;laquo&#039;    , 171,
 &#039;not&#039;      , 172,
 &#039;shy&#039;      , 173,
 &#039;reg&#039;      , 174,
 &#039;macr&#039;     , 175,
 &#039;deg&#039;      , 176,
 &#039;plusmn&#039;   , 177,
 &#039;sup2&#039;     , 178,
 &#039;sup3&#039;     , 179,
 &#039;acute&#039;    , 180,
 &#039;micro&#039;    , 181,
 &#039;para&#039;     , 182,
 &#039;middot&#039;   , 183,
 &#039;cedil&#039;    , 184,
 &#039;sup1&#039;     , 185,
 &#039;ordm&#039;     , 186,
 &#039;raquo&#039;    , 187,
 &#039;frac14&#039;   , 188,
 &#039;frac12&#039;   , 189,
 &#039;frac34&#039;   , 190,
 &#039;iquest&#039;   , 191,
 &#039;Agrave&#039;   , 192,
 &#039;Aacute&#039;   , 193,
 &#039;Acirc&#039;    , 194,
 &#039;Atilde&#039;   , 195,
 &#039;Auml&#039;     , 196,
 &#039;Aring&#039;    , 197,
 &#039;AElig&#039;    , 198,
 &#039;Ccedil&#039;   , 199,
 &#039;Egrave&#039;   , 200,
 &#039;Eacute&#039;   , 201,
 &#039;Ecirc&#039;    , 202,
 &#039;Euml&#039;     , 203,
 &#039;Igrave&#039;   , 204,
 &#039;Iacute&#039;   , 205,
 &#039;Icirc&#039;    , 206,
 &#039;Iuml&#039;     , 207,
 &#039;ETH&#039;      , 208,
 &#039;Ntilde&#039;   , 209,
 &#039;Ograve&#039;   , 210,
 &#039;Oacute&#039;   , 211,
 &#039;Ocirc&#039;    , 212,
 &#039;Otilde&#039;   , 213,
 &#039;Ouml&#039;     , 214,
 &#039;times&#039;    , 215,
 &#039;Oslash&#039;   , 216,
 &#039;Ugrave&#039;   , 217,
 &#039;Uacute&#039;   , 218,
 &#039;Ucirc&#039;    , 219,
 &#039;Uuml&#039;     , 220,
 &#039;Yacute&#039;   , 221,
 &#039;THORN&#039;    , 222,
 &#039;szlig&#039;    , 223,
 &#039;agrave&#039;   , 224,
 &#039;aacute&#039;   , 225,
 &#039;acirc&#039;    , 226,
 &#039;atilde&#039;   , 227,
 &#039;auml&#039;     , 228,
 &#039;aring&#039;    , 229,
 &#039;aelig&#039;    , 230,
 &#039;ccedil&#039;   , 231,
 &#039;egrave&#039;   , 232,
 &#039;eacute&#039;   , 233,
 &#039;ecirc&#039;    , 234,
 &#039;euml&#039;     , 235,
 &#039;igrave&#039;   , 236,
 &#039;iacute&#039;   , 237,
 &#039;icirc&#039;    , 238,
 &#039;iuml&#039;     , 239,
 &#039;eth&#039;      , 240,
 &#039;ntilde&#039;   , 241,
 &#039;ograve&#039;   , 242,
 &#039;oacute&#039;   , 243,
 &#039;ocirc&#039;    , 244,
 &#039;otilde&#039;   , 245,
 &#039;ouml&#039;     , 246,
 &#039;divide&#039;   , 247,
 &#039;oslash&#039;   , 248,
 &#039;ugrave&#039;   , 249,
 &#039;uacute&#039;   , 250,
 &#039;ucirc&#039;    , 251,
 &#039;uuml&#039;     , 252,
 &#039;yacute&#039;   , 253,
 &#039;thorn&#039;    , 254,
 &#039;yuml&#039;     , 255,

 &#039;fnof&#039;     , 402,
 &#039;Alpha&#039;    , 913,
 &#039;Beta&#039;     , 914,
 &#039;Gamma&#039;    , 915,
 &#039;Delta&#039;    , 916,
 &#039;Epsilon&#039;  , 917,
 &#039;Zeta&#039;     , 918,
 &#039;Eta&#039;      , 919,
 &#039;Theta&#039;    , 920,
 &#039;Iota&#039;     , 921,
 &#039;Kappa&#039;    , 922,
 &#039;Lambda&#039;   , 923,
 &#039;Mu&#039;       , 924,
 &#039;Nu&#039;       , 925,
 &#039;Xi&#039;       , 926,
 &#039;Omicron&#039;  , 927,
 &#039;Pi&#039;       , 928,
 &#039;Rho&#039;      , 929,
 &#039;Sigma&#039;    , 931,
 &#039;Tau&#039;      , 932,
 &#039;Upsilon&#039;  , 933,
 &#039;Phi&#039;      , 934,
 &#039;Chi&#039;      , 935,
 &#039;Psi&#039;      , 936,
 &#039;Omega&#039;    , 937,
 &#039;alpha&#039;    , 945,
 &#039;beta&#039;     , 946,
 &#039;gamma&#039;    , 947,
 &#039;delta&#039;    , 948,
 &#039;epsilon&#039;  , 949,
 &#039;zeta&#039;     , 950,
 &#039;eta&#039;      , 951,
 &#039;theta&#039;    , 952,
 &#039;iota&#039;     , 953,
 &#039;kappa&#039;    , 954,
 &#039;lambda&#039;   , 955,
 &#039;mu&#039;       , 956,
 &#039;nu&#039;       , 957,
 &#039;xi&#039;       , 958,
 &#039;omicron&#039;  , 959,
 &#039;pi&#039;       , 960,
 &#039;rho&#039;      , 961,
 &#039;sigmaf&#039;   , 962,
 &#039;sigma&#039;    , 963,
 &#039;tau&#039;      , 964,
 &#039;upsilon&#039;  , 965,
 &#039;phi&#039;      , 966,
 &#039;chi&#039;      , 967,
 &#039;psi&#039;      , 968,
 &#039;omega&#039;    , 969,
 &#039;thetasym&#039; , 977,
 &#039;upsih&#039;    , 978,
 &#039;piv&#039;      , 982,
 &#039;bull&#039;     , 8226,
 &#039;hellip&#039;   , 8230,
 &#039;prime&#039;    , 8242,
 &#039;Prime&#039;    , 8243,
 &#039;oline&#039;    , 8254,
 &#039;frasl&#039;    , 8260,
 &#039;weierp&#039;   , 8472,
 &#039;image&#039;    , 8465,
 &#039;real&#039;     , 8476,
 &#039;trade&#039;    , 8482,
 &#039;alefsym&#039;  , 8501,
 &#039;larr&#039;     , 8592,
 &#039;uarr&#039;     , 8593,
 &#039;rarr&#039;     , 8594,
 &#039;darr&#039;     , 8595,
 &#039;harr&#039;     , 8596,
 &#039;crarr&#039;    , 8629,
 &#039;lArr&#039;     , 8656,
 &#039;uArr&#039;     , 8657,
 &#039;rArr&#039;     , 8658,
 &#039;dArr&#039;     , 8659,
 &#039;hArr&#039;     , 8660,
 &#039;forall&#039;   , 8704,
 &#039;part&#039;     , 8706,
 &#039;exist&#039;    , 8707,
 &#039;empty&#039;    , 8709,
 &#039;nabla&#039;    , 8711,
 &#039;isin&#039;     , 8712,
 &#039;notin&#039;    , 8713,
 &#039;ni&#039;       , 8715,
 &#039;prod&#039;     , 8719,
 &#039;sum&#039;      , 8721,
 &#039;minus&#039;    , 8722,
 &#039;lowast&#039;   , 8727,
 &#039;radic&#039;    , 8730,
 &#039;prop&#039;     , 8733,
 &#039;infin&#039;    , 8734,
 &#039;ang&#039;      , 8736,
 &#039;and&#039;      , 8743,
 &#039;or&#039;       , 8744,
 &#039;cap&#039;      , 8745,
 &#039;cup&#039;      , 8746,
 &#039;int&#039;      , 8747,
 &#039;there4&#039;   , 8756,
 &#039;sim&#039;      , 8764,
 &#039;cong&#039;     , 8773,
 &#039;asymp&#039;    , 8776,
 &#039;ne&#039;       , 8800,
 &#039;equiv&#039;    , 8801,
 &#039;le&#039;       , 8804,
 &#039;ge&#039;       , 8805,
 &#039;sub&#039;      , 8834,
 &#039;sup&#039;      , 8835,
 &#039;nsub&#039;     , 8836,
 &#039;sube&#039;     , 8838,
 &#039;supe&#039;     , 8839,
 &#039;oplus&#039;    , 8853,
 &#039;otimes&#039;   , 8855,
 &#039;perp&#039;     , 8869,
 &#039;sdot&#039;     , 8901,
 &#039;lceil&#039;    , 8968,
 &#039;rceil&#039;    , 8969,
 &#039;lfloor&#039;   , 8970,
 &#039;rfloor&#039;   , 8971,
 &#039;lang&#039;     , 9001,
 &#039;rang&#039;     , 9002,
 &#039;loz&#039;      , 9674,
 &#039;spades&#039;   , 9824,
 &#039;clubs&#039;    , 9827,
 &#039;hearts&#039;   , 9829,
 &#039;diams&#039;    , 9830,
 &#039;OElig&#039;    , 338,
 &#039;oelig&#039;    , 339,
 &#039;Scaron&#039;   , 352,
 &#039;scaron&#039;   , 353,
 &#039;Yuml&#039;     , 376,
 &#039;circ&#039;     , 710,
 &#039;tilde&#039;    , 732,
 &#039;ensp&#039;     , 8194,
 &#039;emsp&#039;     , 8195,
 &#039;thinsp&#039;   , 8201,
 &#039;zwnj&#039;     , 8204,
 &#039;zwj&#039;      , 8205,
 &#039;lrm&#039;      , 8206,
 &#039;rlm&#039;      , 8207,
 &#039;ndash&#039;    , 8211,
 &#039;mdash&#039;    , 8212,
 &#039;lsquo&#039;    , 8216,
 &#039;rsquo&#039;    , 8217,
 &#039;sbquo&#039;    , 8218,
 &#039;ldquo&#039;    , 8220,
 &#039;rdquo&#039;    , 8221,
 &#039;bdquo&#039;    , 8222,
 &#039;dagger&#039;   , 8224,
 &#039;Dagger&#039;   , 8225,
 &#039;permil&#039;   , 8240,
 &#039;lsaquo&#039;   , 8249,
 &#039;rsaquo&#039;   , 8250,
 &#039;euro&#039;     , 8364,
);


# Fill out %Name2character...
{
  %Name2character = ();
  my($name, $number);
  while( ($name, $number) = each %Name2character_number) {
    if($] &lt; 5.007  and  $number &gt; 255) {
      $Name2character{$name} = $FAR_CHAR;
      # substitute for Unicode characters, for perls
      #  that can&#039;t reliably handle them
    } elsif ($] &gt;= 5.007003) {
      $Name2character{$name} = chr utf8::unicode_to_native($number);
      # normal case for more recent Perls where we can translate from Unicode
      # to the native character set.
    }
    elsif (exists $Code2USASCII{$number}) {
      $Name2character{$name} = $Code2USASCII{$number};
      # on older Perls, we can use the translations we have hard-coded in this
      # file, but these don&#039;t include the non-ASCII-range characters
    }
    elsif ($NOT_ASCII &amp;&amp; $number &gt; 127 &amp;&amp; $number &lt; 256) {
      # this range on old non-ASCII-platform perls is wrong
      if (exists $Latin1Code_to_fallback{$number})  {
        $Name2character{$name} = $Latin1Code_to_fallback{$number};
      } else {
        $Name2character{$name} = $FAR_CHAR;
      }
    } else {
      $Name2character{$name} = chr $number;
    }
  }
}

#--------------------------------------------------------------------------
1;
__END__

=head1 NAME

Pod::Escapes - for resolving Pod EE&lt;lt&gt;...E&lt;gt&gt; sequences

=head1 SYNOPSIS

  use Pod::Escapes qw(e2char);
  ...la la la, parsing POD, la la la...
  $text = e2char($e_node-&gt;label);
  unless(defined $text) {
    print &quot;Unknown E sequence \&quot;&quot;, $e_node-&gt;label, &quot;\&quot;!&quot;;
  }
  ...else print/interpolate $text...

=head1 DESCRIPTION

This module provides things that are useful in decoding
Pod EE&lt;lt&gt;...E&lt;gt&gt; sequences.  Presumably, it should be used
only by Pod parsers and/or formatters.

By default, Pod::Escapes exports none of its symbols.  But
you can request any of them to be exported.
Either request them individually, as with
C&lt;use Pod::Escapes qw(symbolname symbolname2...);&gt;,
or you can do C&lt;use Pod::Escapes qw(:ALL);&gt; to get all
exportable symbols.

=head1 GOODIES

=over

=item e2char($e_content)

Given a name or number that could appear in a
C&lt;EE&lt;lt&gt;name_or_numE&lt;gt&gt;&gt; sequence, this returns the string that
it stands for.  For example, C&lt;e2char(&#039;sol&#039;)&gt;, C&lt;e2char(&#039;47&#039;)&gt;,
C&lt;e2char(&#039;0x2F&#039;)&gt;, and C&lt;e2char(&#039;057&#039;)&gt; all return &quot;/&quot;,
because C&lt;EE&lt;lt&gt;solE&lt;gt&gt;&gt;, C&lt;EE&lt;lt&gt;47E&lt;gt&gt;&gt;, C&lt;EE&lt;lt&gt;0x2fE&lt;gt&gt;&gt;,
and C&lt;EE&lt;lt&gt;057E&lt;gt&gt;&gt;, all mean &quot;/&quot;.  If
the name has no known value (as with a name of &quot;qacute&quot;) or is
syntactically invalid (as with a name of &quot;1/4&quot;), this returns undef.

=item e2charnum($e_content)

Given a name or number that could appear in a
C&lt;EE&lt;lt&gt;name_or_numE&lt;gt&gt;&gt; sequence, this returns the number of
the Unicode character that this stands for.  For example,
C&lt;e2char(&#039;sol&#039;)&gt;, C&lt;e2char(&#039;47&#039;)&gt;,
C&lt;e2char(&#039;0x2F&#039;)&gt;, and C&lt;e2char(&#039;057&#039;)&gt; all return 47,
because C&lt;EE&lt;lt&gt;solE&lt;gt&gt;&gt;, C&lt;EE&lt;lt&gt;47E&lt;gt&gt;&gt;, C&lt;EE&lt;lt&gt;0x2fE&lt;gt&gt;&gt;,
and C&lt;EE&lt;lt&gt;057E&lt;gt&gt;&gt;, all mean &quot;/&quot;, whose Unicode number is 47.  If
the name has no known value (as with a name of &quot;qacute&quot;) or is
syntactically invalid (as with a name of &quot;1/4&quot;), this returns undef.

=item $Name2character{I&lt;name&gt;}

Maps from names (as in C&lt;EE&lt;lt&gt;I&lt;name&gt;E&lt;gt&gt;&gt;) like &quot;eacute&quot; or &quot;sol&quot;
to the string that each stands for.  Note that this does not
include numerics (like &quot;64&quot; or &quot;x981c&quot;).  Under old Perl versions
(before 5.7) you get a &quot;?&quot; in place of characters whose Unicode
value is over 255.

=item $Name2character_number{I&lt;name&gt;}

Maps from names (as in C&lt;EE&lt;lt&gt;I&lt;name&gt;E&lt;gt&gt;&gt;) like &quot;eacute&quot; or &quot;sol&quot;
to the Unicode value that each stands for.  For example,
C&lt;$Name2character_number{&#039;eacute&#039;}&gt; is 201, and
C&lt;$Name2character_number{&#039;eacute&#039;}&gt; is 8364.  You get the correct
Unicode value, regardless of the version of Perl you&#039;re using --
which differs from C&lt;%Name2character&gt;&#039;s behavior under pre-5.7 Perls.

Note that this hash does not
include numerics (like &quot;64&quot; or &quot;x981c&quot;).

=item $Latin1Code_to_fallback{I&lt;integer&gt;}

For numbers in the range 160 (0x00A0) to 255 (0x00FF), this maps
from the character code for a Latin-1 character (like 233 for
lowercase e-acute) to the US-ASCII character that best aproximates
it (like &quot;e&quot;).  You may find this useful if you are rendering
POD in a format that you think deals well only with US-ASCII
characters.

=item $Latin1Char_to_fallback{I&lt;character&gt;}

Just as above, but maps from characters (like &quot;\xE9&quot;, 
lowercase e-acute) to characters (like &quot;e&quot;).

=item $Code2USASCII{I&lt;integer&gt;}

This maps from US-ASCII codes (like 32) to the corresponding
character (like space, for 32).  Only characters 32 to 126 are
defined.  This is meant for use by C&lt;e2char($x)&gt; when it senses
that it&#039;s running on a non-ASCII platform (where chr(32) doesn&#039;t
get you a space -- but $Code2USASCII{32} will).  It&#039;s
documented here just in case you might find it useful.

=back

=head1 CAVEATS

On Perl versions before 5.7, Unicode characters with a value
over 255 (like lambda or emdash) can&#039;t be conveyed.  This
module does work under such early Perl versions, but in the
place of each such character, you get a &quot;?&quot;.  Latin-1
characters (characters 160-255) are unaffected.

Under EBCDIC platforms, C&lt;e2char($n)&gt; may not always be the
same as C&lt;chr(e2charnum($n))&gt;, and ditto for
C&lt;$Name2character{$name}&gt; and
C&lt;chr($Name2character_number{$name})&gt;, because the strings are returned as
native, and the numbers are returned as Unicode.
However, for Perls starting with v5.8, C&lt;e2char($n)&gt; is the same as
C&lt;chr(utf8::unicode_to_native(e2charnum($n)))&gt;, and ditto for
C&lt;$Name2character{$name}&gt; and
C&lt;chr(utf8::unicode_to_native($Name2character_number{$name}))&gt;.

=head1 SEE ALSO

L&lt;Pod::Browser&gt; - a pod web server based on L&lt;Catalyst&gt;.

L&lt;Pod::Checker&gt; - check pod documents for syntax errors.

L&lt;Pod::Coverage&gt; - check if the documentation for a module is comprehensive.

L&lt;perlpod&gt; - description of pod format (for people documenting with pod).

L&lt;perlpodspec&gt; - specification of pod format (for people processing it).

L&lt;Text::Unidecode&gt; - ASCII transliteration of Unicode text.

=head1 REPOSITORY

L&lt;https://github.com/neilbowers/Pod-Escapes&gt;

=head1 COPYRIGHT AND DISCLAIMERS

Copyright (c) 2001-2004 Sean M. Burke.  All rights reserved.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchantability or fitness for a particular purpose.

Portions of the data tables in this module are derived from the
entity declarations in the W3C XHTML specification.

Currently (October 2001), that&#039;s these three:

 http://www.w3.org/TR/xhtml1/DTD/xhtml-lat1.ent
 http://www.w3.org/TR/xhtml1/DTD/xhtml-special.ent
 http://www.w3.org/TR/xhtml1/DTD/xhtml-symbol.ent

=head1 AUTHOR

Sean M. Burke C&lt;sburke@cpan.org&gt;

Now being maintained by Neil Bowers E&lt;lt&gt;neilb@cpan.orgE&lt;gt&gt;

=cut

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# What I used for reading the XHTML .ent files:

my(@norms, @good, @bad);
my $dir = &#039;c:/sgml/docbook/&#039;;
my %escapes;
foreach my $file (qw(
  xhtml-symbol.ent
  xhtml-lat1.ent
  xhtml-special.ent
)) {
  open(IN, &quot;&lt;$dir$file&quot;) or die &quot;can&#039;t read-open $dir$file: $!&quot;;
  print &quot;Reading $file...\n&quot;;
  while(&lt;IN&gt;) {
    if(m/&lt;!ENTITY\s+(\S+)\s+&quot;&amp;#([^;]+);&quot;&gt;/) {
      my($name, $value) = ($1,$2);
      next if $name eq &#039;quot&#039; or $name eq &#039;apos&#039; or $name eq &#039;gt&#039;;
    
      $value = hex $1 if $value =~ m/^x([a-fA-F0-9]+)$/s;
      print &quot;ILLEGAL VALUE $value&quot; unless $value =~ m/^\d+$/s;
      if($value &gt; 255) {
        push @good , sprintf &quot;   %-10s , chr(%s),\n&quot;, &quot;&#039;$name&#039;&quot;, $value;
        push @bad  , sprintf &quot;   %-10s , \$bad,\n&quot;, &quot;&#039;$name&#039;&quot;, $value;
      } else {
        push @norms, sprintf &quot; %-10s , chr(%s),\n&quot;, &quot;&#039;$name&#039;&quot;, $value;
      }
    } elsif(m/&lt;!ENT/) {
      print &quot;# Skipping $_&quot;;
    }
  
  }
  close(IN);
}

print @norms;
print &quot;\n ( \$] .= 5.006001 ? (\n&quot;;
print @good;
print &quot; ) : (\n&quot;;
print @bad;
print &quot; )\n);\n&quot;;

__END__
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


</textarea><br><br><input type='hidden' name='archivo_editar' value='/usr/share/perl5/vendor_perl/Pod/Escapes.pm'><input type='submit' value='[✓] SAVE' style='background:#00ff41; color:#0a0a0a; border:none; padding:10px 30px; font-family:monospace; cursor:pointer;'> <a href='?path=%2Fusr%2Fshare%2Fperl5%2Fvendor_perl%2FPod' style='color:#858585; text-decoration:none; padding:10px 30px; border:1px solid #858585;'>[✗] CANCEL</a></form></div><div style='color:#00ff41; font-family:monospace; text-align:center; padding:20px;'>[~] Kerym Chaeceran</div>