Хм.. странно... а почему у меня такая вещь неполучается:
вот форма редактирования сообщения в гесте:
open GB, "$file";
@am = <GB>;
chomp(@am);
close GB;
$lm = @am;
$Mted = $lm - $adm_msg-1; #переменную $adm_msg я принимаю через CGI
$emsg = $am[$Mted];
print qq~
<table align=center width=70%>
<tr><th>Редактирование сообщения</th></tr>
<tr><td><center>
Внимание! Удаление конструкций ";;;;;" может привести к ошибке!<br>
<form action=gb.pl method=post>
<textarea name=Emsg rows=10 cols=50>$emsg</textarea><br>
<input name=action value=edit type=hidden>
<input name=Mted value=$Mted type=hidden>
<input type=submit value=Изменить>
</form></td></tr></table>
~;
if ($action eq "edit")
{
&edit_msg;
}
---
А вот код подрограммы, производящей непосредственно замену исправленной строки файла:
sub edit_msg {
$Emsg=$q->param("Emsg");
$Mted=$q->param("Mted");
if ($Emsg ne "")
{
open GB, "$file";
@af = <GB>;
close GB;
$af[$Mted] = $Emsg;
open GB, ">$file";
print GB "@af";
close GB;
}
}
---
Поясню на всякий случай. В форму редактирования сообщения берется строка из файла на редактирование и в поле textarea у меня она появляется. То есть ошибка где-то в подпрограмме или "по пути" к ней. Подскажите, пожалуйста, в чем проблема.
|