po/normalize.pl

   1 #! /usr/bin/perl
   2 # Normalize unicode text into form C (canonical decomposition)
   3
   4 use Unicode::Normalize;
   5 binmode STDIN, ':encoding(UTF-8)';
   6 binmode STDOUT, ':encoding(UTF-8)';
   7
   8 while (<>) {
   9     print NFC($_);
  10 }