SAK 図書館
SAK 図書館
CGI-Perl 応用実地編 - 簡易伝言板作成4 (投稿内容チェック整形)
■伝言内容チェック整形
・test3.cgi では、空の投稿もタグの含まれた投稿もなにもかも処理されてし
まいます。現実的なものにするため、次のようなチェックと整形をします。
・データのチェックを「#// 投稿処理開始」と「 #// 伝言編集」の間に次の
ように追加します。
「s/ / /g」は、全角空白を半角空白に変換しています。
「s/</＆ｌｔ；/g」は、< を ＆ｌｔ； に変換しています。
「s/>/＆ｇｔ；/g」は、> を ＆ｇｔ； に変換しています。
(実際のコードでは、＆ｌｔ；、＆ｇｔ； は半角に修正して下さい。)
「s/^\s+//」は、前方の空白を除去しています。
「s/\s+$//」は、後方の空白を除去しています。
以上をハンドルとメッセージに対して行い、未入力となった場合は、エラー
メッセージを表示します。
#// データチェック
$hd =~ s/ / /g;
$hd =~ s/</＆ｌｔ；/g;
$hd =~ s/>/＆ｇｔ；/g;
$hd =~ s/^\s+//;
$hd =~ s/\s+$//;
$ms =~ s/ / /g;
$ms =~ s/</＆ｌｔ；/g;
$ms =~ s/>/＆ｇｔ；/g;
$ms =~ s/^\s+//;
$ms =~ s/\s+$//;
if ($hd eq '') {
DspMsg("ハンドルが空白です。");
exit(0);
}
if ($ms eq '') {
DspMsg("メッセージが空白です。");
exit(0);
}
・以上を test4.cgi として修正すると、次のようになります。
#!/usr/local/bin/perl
#//=====================================================================
#// test4.cgi 簡易伝言板
#//=====================================================================
#// 準備
$title = '簡易伝言板';
$callcgi = 'test4.cgi';
#// 伝言ファイル
$msdnm = './';
$msfnm = 'dengon.txt';
$msmax = 10;
#// パラメタ取得
*data = GetPara();
$md = $data{'md'};
$hd = $data{'hd'};
$ms = $data{'ms'};
#// 伝言ファイル読み込み
$err = 0;
open(FIL, "$msdnm$msfnm") or $err = 1;
if ($err) {
DspMsg("ファイル読み込みオープンエラー ($msdnm$msfnm)");
exit(0);
}
@rec = <FIL>;
close(FIL);
#// 投稿処理開始
if ($md eq '1') {
#// データチェック
$hd =~ s/ / /g;
$hd =~ s/</＆ｌｔ；/g;
$hd =~ s/>/＆ｇｔ；/g;
$hd =~ s/^\s+//;
$hd =~ s/\s+$//;
$ms =~ s/ / /g;
$ms =~ s/</＆ｌｔ；/g;
$ms =~ s/>/＆ｇｔ；/g;
$ms =~ s/^\s+//;
$ms =~ s/\s+$//;
if ($hd eq '') {
DspMsg("ハンドルが空白です。");
exit(0);
}
if ($ms eq '') {
DspMsg("メッセージが空白です。");
exit(0);
}
#// 伝言編集
($ss, $mn, $hh, $dd, $mm, $yy, $yb) = localtime(time);
$yy += 1900;
$mm++;
$dt = sprintf("%04d.%02d.%02d %02d:%02d:%02d", $yy, $mm, $dd, $hh, $mn, $ss);
$rec = $dt . '_~|~_' . $hd . '_~|~_' . $ms . "\n";
#// 伝言ファイル書き込み
$err = 0;
open(FIL, ">$msdnm$msfnm") or $err = 1;
if ($err) {
DspMsg("ファイル書き込みオープンエラー ($msdnm$msfnm)");
exit(0);
}
unshift @rec, $rec;
for ($i = $#rec; $i >= $msmax; $i--) {
pop @rec;
}
print FIL @rec;
close(FIL);
#// 投稿処理終了
}
#// HTML ヘッド表示
print << "END_OF_HTML";
Content-type: text/html
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<TITLE>$title</TITLE>
</HEAD>
<BODY>
<CENTER>
<P><B>◆ 簡易伝言板 ◆</B></P>
<FORM action="$callcgi" id=FORM1 method=post name=FORM1>
<INPUT TYPE="hidden" NAME="md" VALUE="1">
<TABLE bgcolor=#b0b0b0 border=0 cellPadding=3 cellSpacing=2>
<TBODY>
<TR bgcolor=#f0f0f0>
<TD nowrap><FONT size=-1>ハンドル</FONT></TD>
<TD nowrap><INPUT id=hd name=hd size="22" maxlength="40"></TD>
</TR>
<TR bgcolor=#f0f0f0>
<TD nowrap><FONT size=-1>メッセージ</FONT></TD>
<TD nowrap><INPUT id=ms name=ms size="62" maxlength="200"></TD>
</TR>
</TBODY>
</TABLE>
<BR>
<TABLE bgcolor=#b0b0b0 border=0 cellPadding=3 cellSpacing=2>
<TBODY>
<TR bgcolor=#f0f0f0>
<TD nowrap><INPUT id=submit1 name=submit1 type=submit value=" 投稿 "></TD>
<TD nowrap><INPUT id=reset1 name=reset1 type=reset value="リセット"></TD>
</TR>
</TBODY>
</TABLE>
</FORM>
END_OF_HTML
#// 伝言ファイル表示
print '日付 | ハンドル | メッセージ<BR>';
foreach (@rec) {
@w = split(/\_\~\|\~\_/, $_);
$dt = @w[0];
$hd = @w[1];
$ms = @w[2];
print $dt, ' | ', $hd, ' | ', $ms, '<BR>';
}
#// HTML テイル表示
print << "END_OF_HTML";
</CENTER>
</BODY>
</HTML>
END_OF_HTML
#// 終了
exit(0);
#//=====================================================================
#// メッセージ表示
#//=====================================================================
sub DspMsg
{
my($msg) = @_[0];
#// メッセージ表示
print << "END_OF_HTML";
Content-type: text/html
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<TITLE>$title</TITLE>
</HEAD>
<BODY>
<P>$msg</P>
</BODY>
</HTML>
END_OF_HTML
#// リターン
return;
}
#//=====================================================================
#// パラメタ取得
#//=====================================================================
sub GetPara
{
my($encode) = @_;
my($method) = $ENV{'REQUEST_METHOD'};
local($qu, @in, $key, $val);
#// 日本語コード変換 jcode.pl 読み込み
require 'jcode.pl' if $encode;
#// パラメタ取得
if ($method eq 'GET') {
$qu = $ENV{'QUERY_STRING'};
}
elsif ($method eq 'POST') {
read(STDIN, $qu, $ENV{'CONTENT_LENGTH'});
}
local(@qu) = split(/&/, $qu);
foreach (@qu) {
tr/+/ /;
($key, $val) = split(/=/);
$key =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack('c', hex($1))/ge;
$val =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack('c', hex($1))/ge;
$val =~ s/\r\n/\n/g;
jcode'convert(*key, $encode) if ($encode);
jcode'convert(*val, $encode) if ($encode);
$in{$key} = $val;
}
#// 戻り値セット
return *in;
}
■CGI-Perl 応用実地編資料
■CGI-Perl 基礎編資料
■CGI-Perl 基礎実地編資料
■PHP 基礎編資料
■PHP + MySQL 編資料
Copyright (C) 1999-2024 Y.SAK