Mercurial > pub > Impl
view conv.pl @ 194:4d0e1962161c
Replaced tabs with spaces
IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author | cin |
---|---|
date | Tue, 10 Apr 2012 20:08:29 +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));