#!/usr/bin/perl
use strict;
use warnings;
use Fatal qw/open close/;
use Encode;
use Encode::Guess qw/euc-jp shiftjis 7bit-jis/;
use File::Find::Rule;
my $rule = File::Find::Rule->new;
$rule->file;
$rule->name( '*.cgi', '*.pm' );
my @files = $rule->in( '.' );
foreach my $file (@files) {
print $file . "\n";
euc2utf8($file);
}
sub euc2utf8 {
my $filename = shift;
if (-f $filename) {
my $fh;
open $fh, "<", $filename;
my $doc;
{
local $/ = undef;
$doc = <$fh>;
}
close $fh;
my $enc = guess_encoding($doc);
ref($enc) or die "Can't guess: $enc";
open $fh, ">", $filename . ".utf8";
Encode::from_to($doc, $enc, "utf8");
print $fh $doc;
close $fh;
}
}
Comments
comments powered by Disqus