#!/usr/local/bin/perl
use strict;
use warnings;
use utf8; #プログラムがUTF-8を使って記述されていることを宣言
#---------------------------------------------------------
print "Content-type: text/html; charset=utf-8\n\n";
print "\n";
print "\n";
print "
\n";
print "CGI test\n";
print "\n";
print "\n";
print "------------------
\n";
# シフトJSで記述されたファイル(shift_jis.txt)を読み込む。
open (IN, "<:encoding(shift_jis)", "shiftJIS.txt") or die "$!";
my @list0 = ;
close(IN);
# utf8に変換してファイル(sjis_utf8.txt)に記録する。
open (OUT, ">:utf8", "sjis_utf8.txt") or die "$!";
print OUT "UTF-8に変換されて記述された。\n";
foreach my $tmp0 (@list0) {
print OUT "$tmp0"; }
close(OUT);
# utf8で記述されたファイル(sjis_utf8.txt)を読み込む。
open (IN, "<:encoding(utf8)", "sjis_utf8.txt") or die "$!";
@list0 = ;
close(IN);
# シフトJSに変換してファイル(sjis_new.txt)に記録する。
open (OUT, ">:encoding(cp932)", "sjis_new.txt") or die "$!";
print OUT "再度、Shift-JISに変換されて記述された。\n";
foreach my $tmp0 (@list0) {
print OUT "$tmp0"; }
close(OUT);
print "------------------
\n";
print "\n";
print "\n";