view conv.pl @ 276:8a5da17d7ef9

*IMPL::Class refactoring property definition mechanism (incomplete).
author sergey
date Thu, 31 Jan 2013 17:37: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));