Mercurial > pub > Impl
view conv.pl @ 380:1eca08048ba9
TTContext migrated to the unified localization mechanism IMPL::Resources::StringLocaleMap
author | cin |
---|---|
date | Fri, 17 Jan 2014 15:58:57 +0400 |
parents | 47dac58691ee |
children |
line wrap: on
line source
#!/usr/bin/perl use strict; use File::Find; find(sub { open my $hfile, "<:encoding(cp1251)", $_ or warn "failed: $!" and return; my @data = <$hfile>; close $hfile; undef($hfile); chomp foreach @data; open $hfile, ">:encoding(utf8)", $_ or warn "failed: $!" and return; print $hfile "$_\n" foreach @data; }, qw(Lib _test _doc));