名　前　
電話番号　

【応募フォームの結果を漢字変換して表示】　

【ソース】　code.cgi 【解説】
  1. #!/usr/local/bin/perl
  3. #漢字コード変換用スクリプトを呼び出す
  5. require "jcode.pl";
  8. #送られてくる文字列の長さ
  9. $length=$ENV{'CONTENT_LENGTH'};
  11. #長さ分だけ標準入力から読み込む
  12. read(STDIN, $buffer, $length);
  14. #文字列ごとに分割する
  15. ($shimei,$denwa)=split( /&/ , $buffer);
  17. #フォーム名と内容に分割する
  18. ($name,$value1)= split( /=/ , $shimei);
  19. ($tel,$value2)=split( /=/ , $denwa);
  21. #フォームから送られたデータにスペースがあると、
  22. #プラス（+）に置き換えられるので、
  23. #スペースにしたままにする変換処理をする
  24. $value1=~ tr/+/ /;
  25. $value2=~ tr/+/ /;
  27. #フォームから送られたデータの特殊文字や日本語などは
  28. #　%　に続く２桁の16進数に置き換えられるので、
  29. #それを変換しなおす処理をする
  30. $value1=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
  31. $value2=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
  34. #フォームの内容をコード変換する
  37. # SJIS
  39. $sjis1=$value1;
  40. $sjis2=$value2;
  41. &jcode'convert(*sjis1,"sjis");
  42. &jcode'convert(*sjis2,"sjis");
  45. # EUC
  47. $eu1=$value1;
  48. $eu2=$value2;
  49. &jcode'convert(*eu1,"euc");
  50. &jcode'convert(*eu2,"euc");
  53. #JIS
  55. $js1=$value1;
  56. $js2=$value2;
  57. &jcode'convert(*js1,"jis");
  58. &jcode'convert(*js2,"jis");
  60. print "Content-type: text/html \n\n";
  63. print <<EOF;
  64. <HTML><HEAD><TITLE>CGI-TEST</TITLE></HEAD>
  65. <BODY>
  66. SJIS　名前　＝$sjis1 ：電話番号　＝$sjis2 <BR>
  67. <BR>
  68. EUC　名前　＝$eu1 ：電話番号　＝$eu2 <BR>
  69. <BR>
  70. JIS　名前　＝$js1 ：電話番号　＝$js2 <BR>
  71. </BODY>
  72. </HTML>
  74. EOF
  76. exit;
form1.cgi　をベースに追加・変更した行だけを青字で表示



5.「jcode.pl」は、ネット上で公開されている
　漢字コード変換のためのフリー・ソフトウェア。
　持ってきてそのままサーバーに突っ込む。
　フリーのCGIをもらってくると一緒に付いてたりする。






























39.それぞれの値を、変換する