lib/scripts/recode.pl
author wenzelm
Thu Aug 01 22:20:07 2013 +0200 (2013-08-01)
changeset 52835 0906c00bb21d
child 62506 860cd901ab43
permissions -rw-r--r--
recode utf8 for ML, as done in feeder.pl;
wenzelm@52835
     1
#
wenzelm@52835
     2
# Author: Makarius
wenzelm@52835
     3
#
wenzelm@52835
     4
# recode.pl - recode utf8 for ML
wenzelm@52835
     5
#
wenzelm@52835
     6
wenzelm@52835
     7
for (@ARGV) {
wenzelm@52835
     8
  utf8::upgrade($_);
wenzelm@52835
     9
  s/([\x80-\xff])/\\${\(ord($1))}/g;
wenzelm@52835
    10
  print $_, " ";
wenzelm@52835
    11
}
wenzelm@52835
    12