common/scripts/convert-accent.pl

   1 #!/usr/bin/perl -p
   2 # Convert accented accents to character entities
   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