Mercurial > pub > Impl
annotate conv.pl @ 285:546957c50a36
*IMPL::Web::Handler::TTView Reworked template selection mechanism
*IMPL::Web::Application: refactoring
-Removed obsolete IMPL::Text modules
| author | cin |
|---|---|
| date | Mon, 18 Feb 2013 02:55:59 +0400 |
| 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)); |