# encode.pl
# 内容 : utf8形式のデータを読み込んでshift_jisで出力する
# Copyright (c) 2011 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)
# 使用方法 : c:\>perl encode.pl
#
use Encode;

open(IN1,"input.txt");	
open(OUT1,">output.txt");	
while ($line1	=	<IN1>) { 
# 入力ファイルからの文字コードの変換は、入力ファイルの文字コードを指定して、
# Encode::decode 関数で行う。
# 下記の例ではutf8のファイルをshift-jisに変換している。
# 文字コードは、uft8 以外に、shiftjis や euc-jp が指定できる。
# 入力ファイルで uft8 を指定する場合は 「BOMなし」を前提とする。
		$line1 = decode('utf8', $line1); 
# 出力ファイルへの文字コードの変換は、出力ファイルの文字コードを指定して、
# Encode::encode 関数で行う。
# 文字コードは、shiftjis 以外に、uft8 や euc-jp が指定できる。
		$line1 = encode('shiftjis', $line1); 
#		Encode::from_to($line1, 'utf8', 'shiftjis'); 
		print OUT1 $line1;
}
close(IN1);
close(OUT1);
