source: nawszelkiwypadek/tools/gue_dic/canon.pl @ 4216369

help
Last change on this file since 4216369 was f1563c0, checked in by obrebski <obrebski@…>, 17 years ago

git-svn-id: svn://atos.wmid.amu.edu.pl/utt@3 e293616e-ec6a-49c2-aa92-f4a8b91c5d16

  • Property mode set to 100755
File size: 105 bytes
Line 
1#!/usr/bin/perl
2
3use locale;
4use attr;
5
6while (<>) {
7    s/,(.*)$/','.attr::canonize($1)/e;
8    print;
9}
Note: See TracBrowser for help on using the repository browser.