projects
/
xboard.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
cc02ac0cc32f85643a443125ba465d10268531fa
[xboard.git]
/
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
}