月宮あゆのPerl教室 Part.4
-[perl0005.cgi]-------------------------------------------------
#!/usr/bin/perl/
# 簡易掲示板
print "Content-type: text/html;\n\n";
require "cgi-lib.pl"; &ReadParse;
print "<html>\n";
print "<head><title>掲示板</title></head>\n";
print "<body>\n";
print "<hr>\n";
if($in{message}){
open W, ">> perl0005.log";
print W "$in{message}\n";
close W;
}
open R, "perl0005.log";
@log = <R>;
close R;
foreach (@log){print "$_<hr>\n";}
print "<form action='perl0005.cgi'>\n";
print "<input type='text' name='message'> <input type='submit' value='書き込む'>\n";
print "</form>\n";
print "</body></html>\n";
exit;
----------------------------------------------------------------
#!/usr/bin/perl/
# 簡易掲示板
print "Content-type: text/html;\n\n";
require "cgi-lib.pl"; &ReadParse;
print "<html>\n";
print "<head><title>掲示板</title></head>\n";
print "<body>\n";
print "<hr>\n";
if($in{message}){
open W, ">> perl0005.log";
print W "$in{message}\n";
close W;
}
open R, "perl0005.log";
@log = <R>;
close R;
foreach (@log){print "$_<hr>\n";}
print "<form action='perl0005.cgi'>\n";
print "<input type='text' name='message'> <input type='submit' value='書き込む'>\n";
print "</form>\n";
print "</body></html>\n";
exit;
----------------------------------------------------------------
|
|
|