Mercurial > pub > Impl
annotate conv.pl @ 361:eff7f75a4408
added cookie support for the request language detection
| author | cin |
|---|---|
| date | Wed, 27 Nov 2013 17:12:38 +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)); |