Mercurial > pub > Impl
annotate conv.pl @ 408:5c80e33f1218 ref20150831
added 'coarsen' function
| author | cin |
|---|---|
| date | Mon, 07 Sep 2015 01:35:25 +0300 |
| parents | 47dac58691ee |
| children |
| rev | line source |
|---|---|
| 181 | 1 #!/usr/bin/perl |
| 2 use strict; | |
| 3 use File::Find; | |
| 4 | |
| 5 find(sub { | |
| 6 open my $hfile, "<:encoding(cp1251)", $_ or warn "failed: $!" and return; | |
| 7 | |
| 8 my @data = <$hfile>; | |
| 9 | |
| 10 close $hfile; | |
| 11 undef($hfile); | |
| 12 | |
| 13 chomp foreach @data; | |
| 14 | |
| 15 open $hfile, ">:encoding(utf8)", $_ or warn "failed: $!" and return; | |
| 16 | |
| 17 print $hfile "$_\n" foreach @data; | |
| 18 | |
| 19 }, qw(Lib _test _doc)); |