common/scripts/convert-entities.pl

   1 #!/usr/bin/perl -p
   2 # Convert character entities to accented accents
   3
   4 s/\<ch.aacute\/\>/á/g;
   5 s/\<ch.eacute\/\>/é/g;
   6 s/\<ch.iacute\/\>/í/g;
   7 s/\<ch.oacute\/\>/ó/g;
   8 s/\<ch.uacute\/\>/ú/g;
   9 s/\<ch.ntilde\/\>/ñ/g;
  10 s/\<ch.Aacute\/\>/Á/g;
  11 s/\<ch.Eacute\/\>/É/g;
  12 s/\<ch.Iacute\/\>/Í/g;
  13 s/\<ch.Oacute\/\>/Ó/g;
  14 s/\<ch.Uacute\/\>/Ú/g;
  15 s/\<ch.auml\/\>/ä/g;
  16 s/\<ch.euml\/\>/ë/g;
  17 s/\<ch.iuml\/\>/ï/g;
  18 s/\<ch.ouml\/\>/ö/g;
  19 s/\<ch.uuml\/\>/ü/g;
  20 s/\<ch.Ntilde\/\>/Ñ/g;
  21 s/\<ch.acute\/\>/´/g;
  22 s/\<ch.iexcl\/\>/¡/g;
  23 s/\<ch.iquest\/\>/¿/g;
  24 s/\<ch.laquo\/\>/«/g;
  25 s/\<ch.raquo\/\>/»/g;
  26 #s/\&/\<ch.ampersand\/\>/g;
  27