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



【リアルタイムで書き込み続行＆表示】　（空欄時のエラー処理）
＊ただし、これだと自分が書き込んだ分しか見えないので、チャットとしては役に立たない

【ソース】　chat1.cgi 【解説】
  1. #!/usr/local/bin/perl
  3. #書き込まれた内容を保存するファイル名
  4. $datafile='chatdata.html';
  6. #このプログラムのファイル名
  7. $program='chat1.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. print "ハンドル名を入力してください<br>
  60. ブラウザの戻るで再入力をどうぞ。<BR>";
  61. exit;
  63. #入力されていたら日時を得る
  64. }else{
  65. #データファイルを追加書き込みモードで開く
  66. open(FILE,">>$datafile");
  67. print FILE "<HR>$value1：$value2 [$nowis]<BR>\n";
  68. close(FILE);
  69. }
  72. #データファイルを開いて表示する
  74. #データファイルを読み込み専用モードで開く
  75. open(FILE,"$datafile");
  77. #内容をブラウザに表示する
  78. print <FILE>;
  80. #ファイルを閉じる
  81. close(FILE);
  84. #再入力フォームを表示する
  85. print <<EOF;
  86. <HR>
  87. <A NAME="REPLAY"><FORM METHOD="post" ACTION="$program #REPLAY">
  88. <INPUT TYPE="hidden" NAME="shimei" value="$value1">
  89. 発言<INPUT TYPE="text" NAME="koment" SIZE=80><P>
  90. <input type="submit" value="送信する">
  91. <input type="reset" value="クリアする"></FORM>
  92. <HR>
  93. EOF
  95. exit;
board2.cgi から変形。
新たに追加・修正した箇所を
青文字で表示
4.chatdata.htmlは自動で作成される。


7.繰り返し、入力フォームを表示させる時
　に必要
















































58.ハンドル名が空欄だったらエラー表示






64.そうでなかったらデータ書き込み



















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

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

88.いったん入力して次の画面に入ると
　　すでにハンドル名は分かっているので
　　表示されるのは発言フォームだけ

　　（ただし、"hidden"　で
　　　画面からは隠して
　　　ハンドル名をcgiに渡している）


比較演算子　58.のように　if($value1 eq "")　などと表記。　「""」は、空白の意味
文字列を比較 「eq」　（イコール。＝の意。等しい）
「ne」　（ノットイコール、等しくない）
数値を比較 「==」　（イコール。＝の意。等しい）
「!=」（ノットイコール、等しくない）
他にも　「<」「>」「<=」「>=」などがある