Mercurial > pub > Impl
view conv.pl @ 263:0f59b2de72af
*fixed IMPL::DOM::Schema circular module references
*modified IMPL::Object::Singleton, added auto-activation
*code cleanups, docs
author | sergey |
---|---|
date | Wed, 09 Jan 2013 05:17:44 +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));