#!/usr/local/bin/perl
# フォームからの漢字データを表示します
# id=jname.cgi
# update=97.7.21
require "cgi-lib.pl";
require "jcode.pl";
&ReadParse;
# cgi-lib.plはＭＥＴＨＯＤがＰＯＳＴ、ＧＥＴのどちらでも処理してフォームで入力された
# データを連想配列の$in{'フォームでのname=で付けた名'}の形に代入してくれます。
$yous=$in{"you"};
&jcode'convert(*yous,"sjis");
$youj=$in{"you"};
&jcode'convert(*youj,"jis");
$youe=$in{"you"};
&jcode'convert(*youe,"euc");
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "漢字変換 練習 7/16\n";
print "\n";
print "\n";
print "
";
print "○無変換の場合\n";
print "
";
print "あなたは";
print $in{"you"};
print "さんですね。\n";
print "
";
print "○ｓｊｉｓ変換の場合\n";
print "
";
print "あなたは";
print $yous;
print "さんですね。\n";
print "
";
print "○ｊｉｓ変換の場合\n";
print "
";
print "あなたは";
print $youj;
print "さんですね。\n";
print "
";
print "○ｅｕｃ変換の場合\n";
print "
";
print "あなたは";
print $youe;
print "さんですね。\n";
print "\n";
print "\n";
############ end of script ###############