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

# 入力ファイルは文字コードを shift_jis と指定.
open(IN1, "<:encoding(shift_jis)", "filename.txt");

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

	foreach	$line	(@data)		{
		$line	=~	s/charset=shift_jis/charset=UTF-8/g;
#		$line	=~	s/charset=UTF-8/charset=shift_jis/g;
	}	

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

	foreach	$line	(@data)		{
			print	OUT1	$line;
	}
}	
close(IN1);	
close(IN2);	

