发布在公告板上将被覆盖

Question

虽然使用非移位，但帖子会被覆盖。请帮助别人。

我该怎么办？

我应该写几行？

这是骚扰吗？

可用性很差。

到目前为止，我已修剪过这段代码。

我可以发帖。

print "Content-type: text/html; charset=Shift_JIS\n\n";

#form tag omitted.form processing omitted.

my %in;
my $alldata;
my $name    = $in{"name"};
my $message = $in{"message"};
my $host;

if ( $message ne "" ) {
    unshift @log,"$name<>$message<>$host<>\n";
    open(OUT, "> bbs1.txt");
    print OUT @log;
    close(OUT);
}

open(IN, "bbs1.txt") or $!;
while( <IN> ) {
    my ( $name_p, $message_p, $time_p, $zero_p ) = (split(/<>/))[0,1,2,4];
    my $log_p = "$name_p:$message_p<br>$time_p$zero_p";
    chomp $log_p;
}    
close(IN);

Answer 1

您没有加载以前写过的消息并将它们放入@log，所以当您添加最新消息并将其全部写出来时，它只会包含一条消息，这就是您看到的原因之前的消息被覆盖。