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

open(IN1,"filename.txt");	
while	($filename	=	<IN1>)	{	
	chomp($filename);	
	open(IN2,"$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,">$filename");	
# 変更した内容を出力する

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