|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Alan Long 2:5030/1082.72 29 Mar 2002 01:54:24 To : Alexey Pchelnikov Subject : вопрос2 -------------------------------------------------------------------------------- * Originally from Alexey Pchelnikov (2:5020/400) to Alexey Pchelnikov. AP> From: "Alexey Pchelnikov" <alex-ptschel@mtu-net.ru> AP> Что-то у меня с этими неинициализированными значениями постоянно AP> проблемы. Ситуация такая: AP> while (my $ref = $sth->fetchrow_hashref()) { Hачало цикла здесь AP> if ($ref->{'isactive'} eq "active") {$s1="selected"} AP> if ($ref->{'isactive'} eq "disable") {$s2="selected"} AP> print "<tr><td><textarea AP> name=text".$ref->{'msgid'}.">".$ref->{'body'}."</textarea></td><td> AP> <select name=s".$ref-> {'msgid'}.">"; AP> print "<option value=2 $s1>Активный</option>"; AP> print "<option value=1 $s2>Hе AP> используется</option></select></td>"; print "<td><input AP> type=checkbox name=d".$ref->{'msgid'}."></td></tr>"; $id = AP> $ref->{'msgid'}; AP> $s1="";$s2=""; Поставить ^^^^^^^^^^^^^^^^ в начало цикла. AP> } AP> Так вот. Мне постоянно выдаёт perl -w предупреждение, что в одной AP> из этих строк (в зависимости от ситуации): AP> print "<option value=2 $s1>Активный</option>"; AP> print "<option value=1 $s2>Hе AP> используется</option></select></td>"; используется AP> неинициализированное значение. Всё бы ничего, но это постоянно в AP> лог сыпется на сервере и его размеры быстро становятся слишком AP> большими, чтобы его можно было скачивать и просматривать. AP> Что здесь можно сделать? Попробуй use strict; должно сильно помочь... ;-) AP> WBR, Алексей Пчельников. -- With best, Ъ-· Ъ Е-ЧLaі\і <alan@x-rays.eu.org> --- timEd/386 1.10+ * Origin: X - Rays Station (2:5030/1082.72) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/4581ca3917e0.html, оценка из 5, голосов 10
|