#! /usr/local/bin/perl # 設定 $FILE = './dat/chat.dat'; # 発言保存ファイル $INFILE = './dat/chatin.dat'; # 参加者保存ファイル $MAX = 100; # 保存件数 $NAMEMAX = 10; # 名前文字数制限（全角） $TEXTMAX = 50; # 発言文字数制限（全角） $REFRESH = 50; # 再読み込み時間（秒） $DELETE = 10 * 60; # 参加者自動削除時間（秒） $time = time; # 日時取得 loadForm(); # フォームデータ取り込み if($FORM{'frame'} eq "input") { frameInput(); # 入力用フレームを表示 } elsif($FORM{'frame'} eq "view") { frameView(); # 表示用フレームを表示 } else { frameSet(); # フレームセット } exit; #================================================ フレームセット sub frameSet { print <<" END"; Content-type: text/html; charset=Shift_JIS
チャット END } #================================================ 入力用フレームを表示 sub frameInput { my ($i); if($FORM{'mode'}) { loadData(); # 参加者・発言データ読み込み } print <<" END"; Content-type: text/html; charset=Shift_JIS
チャット END if($FORM{'name'} eq "" or $FORM{'mode'} eq "out" or $error) { # 名前入力ページ表示 print <<" END";
END } else { # 発言入力ページ表示 print <<" END";
END } if($error) { # エラーメッセージを表示 print qq(
※$error \n); } print <<" END"; END } #================================================ 表示用フレームを表示 sub frameView { my ($i); loadData(); # 参加者・発言データ読み込み print <<" END"; # HTML出力 Content-type: text/html; charset=Shift_JIS
チャット END printf qq(参加者： \n); for($i = 0 ; $i < @IN ; $i++) { # 参加者データ表示 my ($tm, $name) = split(/\t/, $IN[$i]); if($tm + $DELETE >= $time) { # 自動削除時間を経過した参加者以外を表示 print qq($name ); } } print <<" END";
END for($i = 0 ; $i < @DATA ; $i++) { # 発言データ表示 my ($tm, $name, $text) = split(/\t/, $DATA[$i]); my ($sec, $min, $hour, $date, $mon, $year, $day) = localtime($tm); print qq(); print qq($name≫ $text ); printf qq([%02d/%02d %02d:%02d] ); } print <<" END";
END } #================================================ 発言データ・参加者データ読み込み sub loadData { my ($i); open(FILE, "<$FILE"); # 発言データ読み込み eval{ flock(FILE, 1) }; @DATA =
; close FILE; open(FILE, "<$INFILE"); # 参加者データ読み込み eval{ flock(FILE, 1) }; @IN = ; close FILE; if($FORM{'mode'}) { if($FORM{'mode'} eq 'in') { # 参加 if($FORM{'name'} and length($FORM{'name'}) <= $NAMEMAX * 2) { # 名前入力がある場合 if($FORM{'name'} eq "管理人") { # 使用禁止の名前をチェック $error = "『$FORM{'name'}』では参加できません。" . "別の名前で参加してください。"; return; } for($i = 0 ; $i < @IN ; $i++) { # 名前の重複チェック my ($tm, $name) = split(/\t/, $IN[$i]); if($name eq $FORM{'name'}) { $error = "『$FORM{'name'}』さんは現在参加中です。" . "別の名前で参加してください。"; return; } } push @IN, "$time\t$FORM{'name'}\t\n"; unshift @DATA, "$time\t管理人\t『$FORM{'name'}』さんが参加されます。\t\n"; } else { # 空欄の場合 戻る $error = "名前を入力してください。"; return; } } elsif($FORM{'mode'} eq 'out') { # 退出 for($i = 0 ; $i < @IN ; $i++) { my ($tm, $name) = split(/\t/, $IN[$i]); if($name eq $FORM{'name'}) { # 退出者データを探す splice @IN, $i, 1; # 参加者データから削除 unshift @DATA, "$time\t管理人\t『$FORM{'name'}』さんが退出しました。\t\n"; last; } } } elsif($FORM{'mode'} eq 'write') { # 発言 if($FORM{'text'} and length($FORM{'text'}) <= $TEXTMAX * 2) { # 発言入力がある場合 if(@IN > 0) { for($i = 0 ; $i < @IN ; $i++) { my ($tm, $name) = split(/\t/, $IN[$i]); if($name eq $FORM{'name'}) { # 参加者データを探す $IN[$i] = "$time\t$FORM{'name'}\t\n"; # 参加者データ更新 unshift @DATA, "$time\t$FORM{'name'}\t$FORM{'text'}\t\n"; last; } } } } else { # 空欄の場合 戻る（ページ更新のみ） return; } } while(@DATA > $MAX) { # 保存件数以上のデータを削除 pop @DATA; } open(FILE, ">$FILE"); # 発言データ書き込み（保存） eval{ flock(FILE, 2) }; print FILE @DATA; close FILE; for($i = 0 ; $i < @IN ; $i++) { # 自動削除 my ($tm, $name) = split(/\t/, $IN[$i]); if($tm + $DELETE < $time) { # 自動削除時間経過の参加者を削除 splice @IN, $i, 1; $i--; } } open(FILE, ">$INFILE"); # 参加者データ書き込み（保存） eval{ flock(FILE, 2) }; print FILE @IN; close FILE; } } #================================================ フォームデータ取り込み sub loadForm { my ($query, $pair); if($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $query, $ENV{'CONTENT_LENGTH'}); } else { $query = $ENV{'QUERY_STRING'}; } foreach $pair (split(/&/, $query)) { my ($key, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg; $value =~ s/&/&/g; $value =~ s//>/g; $value =~ s/\s//g; $value =~ s/\x81\x40//g; $value =~ s/\x0D\x0A//g; $value =~ tr/\t//; $FORM{$key} = $value; } } メールフォーム END exit; 警告ダイアログにメッセージ
New! Google検索のしりとり機能で遊んでみる 。 
![[image[6].png]](http://lh3.ggpht.com/_ZS3Wtu0ciyY/S4OXjw7cUJI/AAAAAAAAAJs/jOTwELBw88E/s1600/image%5B6%5D.png)
うなボタンをクリッ
ームペ
を付け、
をつけてインストールしてしまいましょ
した。ほしいものにチェ
規約を確認して、同
0 件のコメント:
コメントを投稿
いつもありがとうございます。パソコンでわからないことがあったら、どんどん疑問をコメントのところに書いて送ってください。待ってますよ❢