Mercurial > pub > Impl
view conv.pl @ 191:78a18a2b6266
IMPL::Web::View improvements (unstable)
author | cin |
---|---|
date | Thu, 05 Apr 2012 17:51:51 +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));