тут наверное надо знание чего то третего, так как понять в чем ошибка не могу, посмотрите, может кто то сможет разобраться.
Вопрос в следующем:
есть 2 саба генерирующие формы
sub msg {
$str=$FORM{\'str\'};
$topik=$FORM{\'str\'};
open (MSG,$file);
@msg=
;
close(MSG);
&htmlhead;
print "\\n";
print "| Список сообщений | Новая тема | |
\\n";
foreach (@msg) { ($sp,$ot,$tema,$name,$data,$text)=split(/`/,$msg[$str]); $str++;
if ($sp eq "0") { if ($t eq "stop") { last; }
print "От: $name $data "; print "$tema $text
|
";
$t=stop; }
if ($sp eq "-") {
print "От: $name $data "; print "$text
| "; }
if ($sp eq "") { last; }
}
print "