# encode2.pl
# 内容 :　フォルダ内のファイルについてshift_jisからutf-8に変更する
# Copyright (c) 2013 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)
# 使用方法 : c:\>perl encode2.pl
#

use Encode;

open(IN1,"filename.txt");	
while	($filename	=	<IN1>)	{	
	chomp($filename);	
	open(IN2,"$filename");	
# ファイル名をもとに全データを読み込む
	@data	=	<IN2>;	

	foreach	$line	(@data)		{
#		$line	=	decode('utf8', $line); 
#		$line	=~	s/charset=UTF-8/charset=shift_jis/g;
#		$line	=	encode('cp932', $line); 
		$line	=	decode('cp932', $line); 
		$line	=~	s/charset=shift_jis/charset=UTF-8/g;
		$line	=	encode('utf8', $line); 
	}	

# 読み込んだファイルを出力ファイルとして、openし直す
	open(OUT1,">$filename");	
# 変更した内容を出力する

	foreach	$line	(@data)		{
#		Encode::from_to($line, 'cp932', 'utf8'); 
#		Encode::from_to($line, 'utf8', 'cp932'); 
		print	OUT1	$line;
	}
}	
close(IN1);	
close(IN2);	

