Mercurial > pub > Impl
view conv.pl @ 294:8088779e539d
corrected IMPL::Config::Activator
author | cin |
---|---|
date | Thu, 28 Feb 2013 02:19:38 +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));