====== Adding new encodings to perl [[http://search.cpan.org/~msergeant/XML-Parser-2.36/Parser.pm|XML::Parser]] ======

Some Cyrillic encodings (windows-1251, cp866, koi8-r) can be located at [[http://uucode.com/xml/perl/]]. XML::Parser modules has a limited set of internal encodings, so in case you need something exotic, you need to download [[http://search.cpan.org/CPAN/authors/id/S/SH/SHAY/XML-Encoding-2.07.tar.gz|XML::Encoding]] library and run the following script (or do it step by step):

<code bash>
#!/bin/sh

XML_PACKAGE=XML-Encoding-2.07

if [ -z "$1" -o -z "$2" ]
then
	echo "Usage: $0 [ftp-path] [encoding]"
	echo "$0 ISO8859/8859-15.TXT iso-8859-15"
	echo "$0 VENDORS/MICSFT/WINDOWS/CP1251.TXT windows-1251"
	exit
fi

[ ! -f `basename $1` ] && wget -nv "ftp://ftp.unicode.org/Public/MAPPINGS/$1"

mkdir XML 2> /dev/null

tar -xzOf $XML_PACKAGE.tar.gz $XML_PACKAGE/Encoding.pm > XML/Encoding.pm
tar -xzOf $XML_PACKAGE.tar.gz $XML_PACKAGE/bin/make_encmap > make_encmap
tar -xzOf $XML_PACKAGE.tar.gz $XML_PACKAGE/bin/compile_encoding > compile_encoding

perl ./make_encmap "$2" `basename $1` | perl -pe "s/^(<encmap)/\$1 expat='yes'/" > "$2.encmap"
perl ./compile_encoding -o "$2.enc" "$2.encmap"

rm -R XML make_encmap compile_encoding "$2.encmap"
</code>

{{tag>XML encoding}}