名　前　
電話番号　
性　別　男性 女性
年　代　


【応募フォーム内容をブラウザに表示。フォーム種類･･･文字列・ ラジオボタン・チェックボックス。】　

【ソース】　form2.cgi 【解説】
  1. #!/usr/local/bin/perl
  4. #送られてくる文字列の長さ
  5. $length=$ENV{'CONTENT_LENGTH'};
  7. #長さ分だけ標準入力から読み込む
  8. read(STDIN, $buffer, $length);
  10. #文字列ごとに分割する
  11. ($shimei,$denwa,$seibetu,$nendai)=split( /&/ , $buffer);
  13. #フォーム名と内容に分割する
  14. ($name,$value1)= split( /=/ , $shimei);
  15. ($tel,$value2)=split( /=/ , $denwa);
  16. ($siyuu,$value3)=split( /=/ , $seibetu);
  17. ($nenbetu,$value4)=split( /=/ , $nendai);
  19. #フォームから送られたデータにスペースがあると、
  20. #プラス（+）に置き換えられるので、
  21. #スペースにしたままにする変換処理をする
  22. $value1=~ tr/+/ /;
  23. $value2=~ tr/+/ /;
  25. #フォームから送られたデータの特殊文字や日本語などは
  26. #　%　に続く２桁の16進数に置き換えられるので、
  27. #それを変換しなおす処理をする
  28. $value1=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
  29. $value2=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
  32. print "Content-type: text/html \n\n";
  34. print "<HTML><HEAD><TITLE>CGI-TEST</TITLE></HEAD> \n";
  35. print "<BODY> \n";
  36. print "名前　＝$value1 \n";
  37. print "<BR><BR> \n";
  38. print "電話　＝$value2 \n";
  39. print "<BR><BR> \n";
  41. if ($value3 eq "m"){print "性別　＝男性\n";}
  42. elsif($value3 eq "f"){print "性別　＝女性\n";}
  43. else {print "性別　＝エラー\n";}
  45. print "<BR><BR> \n";
  46. print "年代　＝$value4代\n";
  47. print "</BODY> \n";
  48. print "</HTML> \n";
  50. exit;
form1.cgi　をベースに追加・変更した行だけを青字で表示

















19.性別と年代の項目は文字列ではないので、
　　この処理は不要




25.性別と年代の項目は文字列ではないので、
　　この処理は不要







34.EOFを使わない表記方法






41.「eq」は、＝のこと。
　　もしも代数value3の値が「m」とイコールだったら
　　男性と表記する。
42.value3の値が「m」ではなく「ｆ」だったら
　　女性と表記する。
43.「ｍ」でも「ｆ」でもなかった場合は「エラー」表記する。
　　
46.「年代」はチェックしたものによって、
　　送る値をｈｔｍｌの方で設定してあるので
　　そのまま名前や電話などと同じ表記でよい。