一言メッセージ

#!/usr/bin/perl #フォームからデータを読み込み #読み込んだデーターを$inputに代入 $input = $ENV{ 'QUERY_STRING' }; #$inputから文字列をsplitで分解（=を削除）して$nameと$commentに代入 ($name,$comment) = split /=/, $input; #--valueデータのデコード処理 $comment =~ tr/+/ /; $comment =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; #タグの無効化 $comment =~ s/&/&/g; $comment =~ s//>/g; #データファイル読み込み open(LOG, "log.dat"); @log = ; close(LOG); #ログ保存数を設定 $data_max = 10; #コメントが追加された時の処理 if (!($comment eq '')){ open(LOG,">log.dat") ; unshift (@log,"$comment\n"); #ログ保存数を設定（$# は変数のインデックスの最大値を求める記述） if ($#log > ($data_max -1)){ $#log = $data_max -1; } print LOG @log; close(LOG); } #HTMLの表示 print <<"HTML"; Content-type: text/html 一言メッセージ

一言メッセージを書いてください。