名　前　
電話番号　

【応募フォームの結果をブラウザで表示】　

【ソース】　form1.cgi 【解説】
  1. #!/usr/local/bin/perl
  3. #form1.htmlからの送信データは、
  4. #「form1.cgi?namae=名前の文字列&namae=電話番号の文字列」となる
  5. #つまりフォーム間が「&」で区切られ
  6. #各項目（フォーム）名と内容が「=」で区切られる
  9. #送られてくる文字列の長さ
  11. $length=$ENV{'CONTENT_LENGTH'};
  14. #長さ分だけ標準入力から読み込む
  16. read(STDIN, $buffer, $length);
  19. #文字列ごとに分割する
  21. ($shimei,$denwa)=split( /&/ , $buffer);
  24. #フォーム名と内容に分割する
  26. ($name,$value1)= split( /=/ , $shimei);
  27. ($tel,$value2)=split( /=/ , $denwa);
  30. #フォームから送られたデータにスペースがあると、
  31. #プラス（+）に置き換えられるので、
  32. #スペースにしたままにする変換処理をする
  34. $value1=~ tr/+/ /;
  35. $value2=~ tr/+/ /;
  38. #フォームから送られたデータの特殊文字や日本語などは
  39. #　%　に続く２桁の16進数に置き換えられるので、
  40. #それを変換しなおす処理をする
  42. $value1=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
  43. $value2=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
  47. print "Content-type: text/html \n\n";
  49. print <<EOF;
  50. <HTML><HEAD><TITLE>CGI-TEST</TITLE></HEAD>
  51. <BODY>
  52. 名前　＝$value1 <BR>
  53. <BR>
  54. 電話番号　＝$value2
  55. </BODY>
  56. </HTML>
  58. EOF
  60. exit;










11.送られる文字列の長さをlengthに代入




16.stdin（標準入力）、stdout（標準出力）。
　　lengthの数だけ標準入力から読み込んでbufferに



21.送られてきた文字列を「＆」のところで分ける




26.さらに「＝」のところで分ける