doc/share/examples/vim/sgml2accents.pl

#!/usr/bin/perl
# $FreeBSD$
# Transform SGML notation in Iso-8859-1 accents
while (<>) {
s/&Agrave;/À/g;
s/&Aacute;/Á/g;
s/&Acirc;/Â/g;
s/&Atilde;/Ã/g;
s/&Auml;/Ä/g;
s/&Aring;/Å/g;
s/&Aring;/Å/g;
s/&AElig;/Æ/g;
s/&Ccedil;/Ç/g;
s/&Egrave'/È/g;
s/&Eacute;/É/g;
s/&Ecirc;/Ê/g;
s/&Euml;/Ë/g;
s/&Igrave;/Ì/g;
s/&Iacute;/Í/g;
s/&Icirc;/Î/g;
s/&Iuml;/Ï/g;
s/&ETH;/Ð/g;
s/&Ntilde;/Ñ/g;
s/&Ograve;/Ò/g;
s/&Oacute;/Ó/g;
s/&Ocirc;/Ô/g;
s/&Otilde;/Õ/g;
s/&Ouml;/Ö/g;
s/&times;/×/g;
s/&Oslash;/Ø/g;
s/&Ugrave;/Ù/g;
s/&Uacute;/Ú/g;
s/&Ucirc;/Û/g;
s/&Uuml;/Ü/g;
s/&Yacute;/Ý/g;
s/&THORN;/Þ/g;
s/&szlig;/ß/g;
s/&agrave;/à/g;
s/&aacute;/á/g;
s/&acirc;/â/g;
s/&atilde;/ã/g;
s/&auml;/ä/g;
s/&aring;/å/g;
s/&aring;/å/g;
s/&aelig;/æ/g;
s/&ccedil;/ç/g;
s/&egrave;/è/g;
s/&eacute;/é/g;
s/&ecirc;/ê/g;
s/&euml;/ë/g;
s/&igrave;/ì/g;
s/&iacute;/í/g;
s/&icirc;/î/g;
s/&iuml;/ï/g;
s/&eth;/ð/g;
s/&ntilde;/ñ/g;
s/&ograve;/ò/g;
s/&oacute;/ó/g;
s/&ocirc;/ô/g;
s/&otilde;/õ/g;
s/&ouml;/ö/g;
s/&divide;/÷/g;
s/&oslash;/ø/g;
s/&ugrave;/ù/g;
s/&uacute;/ú/g;
s/&ucirc;/û/g;
s/&uuml;/ü/g;
s/&yacute;/ý/g;
s/&thorn;/þ/g;
s/&yuml;/ÿ/g;
print;
}