名　前（ハンドル名）
　
メールアドレス
　
URLアドレス
　
コメントをどうぞ
　



【超シンプル掲示板】　（記入日時も表示）

【ソース】　board2.cgi 【解説】
  1. #!/usr/local/bin/perl
  3. #書き込まれた内容を保存するファイル名
  4. $datafile='data.html';
  5. print "Content-Type: text/html\n\n";
  7. #送られてくる文字列の長さ
  8. $length=$ENV{'CONTENT_LENGTH'};
  10. #長さ分だけ標準入力から読み込む
  11. read(STDIN, $buffer, $length);
  13. #文字列ごとに分割する
  14. ($shimei,$e_mail,$hp_ad,$kotoba)=split( /&/ , $buffer);
  16. #フォーム名と内容に分割する
  17. ($name,$value1)= split( /=/ , $shimei);
  18. ($tel,$value2)=split( /=/ , $e_mail);
  19. ($tel,$value3)=split( /=/ , $hp_ad);
  20. ($tel,$value4)=split( /=/ , $kotoba);
  22. #フォームから送られたデータにスペースがあると、
  23. #プラス（+）に置き換えられるので、
  24. #スペースにしたままにする変換処理をする
  25. $value1=~ tr/+/ /;
  26. $value2=~ tr/+/ /;
  27. $value3=~ tr/+/ /;
  28. $value4=~ tr/+/ /;
  30. #フォームから送られたデータの特殊文字や日本語などは
  31. #　%　に続く２桁の16進数に置き換えられるので、
  32. #それを変換しなおす処理をする
  33. $value1=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
  34. $value2=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
  35. $value3=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
  36. $value4=~ 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. open(FILE,">>$datafile");
  60. #新規に書き込まれた内容をファイルに追記する
  61. print FILE "<P><HR>氏名：$value1／メールアドレス<a
  62. href=\"mailto:$value2\">$value2</a>／ホームページ<a
  63. href=\"$value3\">$value3</a><BR>$nowis<BR>＜本文＞<BR>$value4\n";
  65. #ファイルを閉じる
  66. close(FILE);
  68. #追記された書き込みを全部表示する
  70. #データファイルを読み込み専用モードで開く
  71. open(FILE,"$datafile");
  73. #内容をブラウザに表示する
  74. print <FILE>;
  76. #ファイルを閉じる
  77. close(FILE);
  79. exit;
board2.cgi と time.cgi を組み合わせる

board2.cgi から新たに加えた箇所を
青文字で表示