utt/_old/nawszelkiwypadek/tools/gue_dic/canon.pl

10 lines
105 B
Perl
Raw Normal View History

#!/usr/bin/perl
use locale;
use attr;
while (<>) {
s/,(.*)$/','.attr::canonize($1)/e;
print;
}