Mercurial > pub > Impl

comparison conv.pl @ 181:47dac58691ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New templating system, small fixes
author sourcer
date Thu, 26 Jan 2012 01:15:57 +0400
parents
children
comparison
equal deleted inserted replaced
180:d1676be8afcc 181:47dac58691ee
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));