The mconv.cleanup program

Note that the original program makes direct use of accented characters in the CSX encoding; here it has been converted to use Unicode equivalents to ensure readability on modern computers. This means that downloading and attempting to run the program as it stands is unlikely to work.


#!/usr/bin/perl -p

next if (/[{}\\]/) || !(/['A-zÇ-Ḥ]/) || (/^%/);
s/a([aāiīuūṛeoEO])/a $1/g;
s/([^0-9])E/$1ai/g;
s/([^0-9])O/$1au/g;





Back to home page