名　前（ハンドル名）
　
最初のコメント
　



【超シンプルチャット】　（空欄時のエラー処理・リロード処理）

【ソース】　chat2.cgi 【解説】
  1. #!/usr/local/bin/perl
  3. #書き込まれた内容を保存するファイル名
  4. $datafile='chatdata.html';
  6. #このプログラムのファイル名
  7. $program='chat2.cgi';
  10. print "Content-Type: text/html\n\n";
  13. #送られてくる文字列の長さ
  14. $length=$ENV{'CONTENT_LENGTH'};
  16. #長さ分だけ標準入力から読み込む
  17. read(STDIN, $buffer, $length);
  19. #文字列ごとに分割する
  20. ($shimei,$koment)=split( /&/ , $buffer);
  22. #フォーム名と内容に分割する
  23. ($name,$value1)= split( /=/ , $shimei);
  24. ($tel,$value2)=split( /=/ , $koment);
  26. #フォームから送られたデータにスペースがあると、
  27. #プラス（+）に置き換えられるので、
  28. #スペースにしたままにする変換処理をする
  29. $value1=~ tr/+/ /;
  30. $value2=~ tr/+/ /;
  32. #フォームから送られたデータの特殊文字や日本語などは
  33. #　%　に続く２桁の16進数に置き換えられるので、
  34. #それを変換しなおす処理をする
  35. $value1=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
  36. $value2=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
  38. #日時を表示するために、次の処理を加える
  40. #　localtime関数を使い、秒、分、時、日、年、曜日に分解
  41. ($sec,$min,$hour,$mday,$mon,$year,$wday)=localtime(time);
  43. #月の値が0〜11になるので、+1して1〜12に補正する
  44. $mon++;
  46. #西暦を4桁表示にする(2000年対応)
  47. $yy=$year + 1900;
  49. #日本語の曜日を振り当てる
  50. @yobi=('日','月','火','水','木','金','土');
  52. #全体を表示させる記述
  54. $nowis="$yy年$mon月$mday日（$yobi[$wday]）$hour時$min分$sec秒\n";
  57. #ハンドル名が空欄だったらエラー表示
  58. if($value1 eq ""){
  59. #メッセージを表示
  60. print "ハンドル名を入力してください。<BR>
  61. ブラウザで戻って入力をどうぞ。<BR>";
  62. #プログラムを終える
  63. exit;
  65. #ハンドル名と発言がともに入力されていたら
  66. }elsif($value2 ne ""){
  67. #データファイルを追加書き込みモードで開いて追記
  68. open(FILE,">>$datafile");
  69. print FILE "<HR>$value1：$value2 [$nowis]<BR>\n";
  70. close(FILE);
  72. #ハンドル名があって、発言が空欄だったら
  73. }else{
  75. }
  77. #ファイル内容を表示リロード
  78. &browse();
  79. exit;
  82. sub browse{
  84. #データファイルを開いて表示する
  86. #データファイルを読み込み専用モードで開く
  87. open(FILE,"$datafile");
  89. #内容をブラウザに表示する
  90. print <FILE>;
  92. #ファイルを閉じる
  93. close(FILE);
  96. #再入力フォームを表示する
  97. print <<EOF;
  98. <HR>
  99. <A NAME="REPLAY"><FORM METHOD="post" ACTION="$program#REPLAY">
  100. <INPUT TYPE="hidden" NAME="shimei" value="$value1">
  101. 発言<INPUT TYPE="text" NAME="koment" SIZE=80><P>
  102. <input type="submit" value="送信する/リロード">
  103. <input type="reset" value="クリアする"></FORM>
  104. <HR>
  105. EOF
  106. }
chat1.cgi から変形。
新たに追加・修正した箇所を
青文字で表示



























































63.ハンドル名が空欄の場合は、
　　いったんプログラムを終える処理

66.ハンドル名と発言がともに入力されて
　　いた場合は、通常通り
　　ファイルに書き込み




73.ハンドル名があって、発言がなかった
　　場合はリロード処理をする。
　　＊エラー処理をしない理由は、
　　　　発言がなくてもリロードをする
　　　　ことがあるため




82.ブラウザに表示させる内容の設定




87.datafileに代入されたファイルを表示









97.表示されたものの下に、
　　再度、入力フォームを表示させる。

　　programに代入されたcgiを
　　繰り返し行う（REPLAY）

102.「73〜79」の処理により、
　　　送信ボタンを押すと、自動的に
　　　リロードまで行う

107.このcgiの最後には exit がない
　　　「82」のsub browseの「｛」が
　　　「106」で閉じている

　　　このcgi処理が終わるのは
　　　107行目ではなく
　　　「63」または「79」行目

cgiの流れとしては
（１） 「1〜56行」を処理　
　　　　　　　　次の処理は、入力されたデータによって、３パターンに分かれる
（２） 「57〜63行」で、「ハンドル名」がなければ文字を表示してcgi終了
　　　　　　　　　　（ブラウザの戻るボタンで戻ってから改めてcgiを動かすことになる）
（２） 「65〜70行」で、（すでにハンドル名があるものだけが抽出されている）
　　　　　　　　　　「発言」があれば情報を書き込んで続行、「77行目」へ
（２） 「72〜75行」で、「発言」がなくても、素通りする処理、「77行目」へ
（３） 「77〜79」で、browse（つまりを「82〜106行」）を読み込んでからcgi終了
（「82〜106行」では、
　　　・ファイルに書き込まれた内容を表示し、
　　　・新しく書き込みフォームを表示させる　　処理を行っている）　　　　　　　　　
＊（３）まで行って終了した場合、またブラウザから書き込み、送信ボタンを押すと、
　　program　に代入された「chat2.cgi」、つまりこのcgiが最初から作動する。