- Perlについての質問箱 64箱目 [転載禁止]©2ch.net
780 ：デフォルトの名無しさん[]：2015/12/20(日) 11:26:07.63 ID:kojJskyY - このソースってどこかに間違いがあるのでしょうか？
#!/usr/bin/perl
require "cgi-lib.pl";
print "Content-type: text/html; charset=Shift_JIS\n\n";
print <<EOL;
<html>
<body>
<h2>一行掲示板</h2>
<form method="post" action="bbs1.cgi">
メッセージ：<input type="text" name="message" size="60">
<input type="submit" value="送信">
</form>
<hr>
EOL
&ReadParse(*form);
$message = $form{"message"};
open(IN, "bbs1.txt");
@log = <IN>;
close(IN);
if ($message ne "") {
unshift @log, "$message\n";
open(OUT, "> bbs1.txt");
print OUT @log;
close(OUT);
}
foreach $data (@log) {
chop $data;
print "$data<br>\n";
}
print "</body>\n</html>\n";
|