|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Alexey Pchelnikov 2:5020/400 28 Mar 2002 23:52:06 To : Alexey Pchelnikov Subject : вопрос2 -------------------------------------------------------------------------------- Что-то у меня с этими неинициализированными значениями постоянно проблемы. Ситуация такая: while (my $ref = $sth->fetchrow_hashref()) { if ($ref->{'isactive'} eq "active") {$s1="selected"} if ($ref->{'isactive'} eq "disable") {$s2="selected"} print "<tr><td><textarea name=text".$ref->{'msgid'}.">".$ref->{'body'}."</textarea></td><td><select name=s".$ref-> {'msgid'}.">"; print "<option value=2 $s1>Активный</option>"; print "<option value=1 $s2>Hе используется</option></select></td>"; print "<td><input type=checkbox name=d".$ref->{'msgid'}."></td></tr>"; $id = $ref->{'msgid'}; $s1="";$s2=""; } Так вот. Мне постоянно выдаёт perl -w предупреждение, что в одной из этих строк (в зависимости от ситуации): print "<option value=2 $s1>Активный</option>"; print "<option value=1 $s2>Hе используется</option></select></td>"; используется неинициализированное значение. Всё бы ничего, но это постоянно в лог сыпется на сервере и его размеры быстро становятся слишком большими, чтобы его можно было скачивать и просматривать. Что здесь можно сделать? -- WBR, Алексей Пчельников. mailto: alex@blackdolphin.ru ICQ: 59110395 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru --- ifmail v.2.15dev5 * Origin: Talk.Mail.Ru (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/648846de9a99.html, оценка из 5, голосов 10
|