Исходное сообщение
"Debian 9.6 - perl 5.24.1 - UNSIGNED ZEROFILL" Отправлено михалыч, 21-Дек-18 19:17
действительно, что за фигня ?? присоединяюсь, но вежливо - WTF(lood) )) если хочется использовать метод fetch()     if ($sth->err) {         $return .= "ERROR " . $sth->errstr;     }     else {         while ( my $row = $sth->fetch() ) {             $return .= "<p><a title=\"$row->[1]\" href=\"http://site/?country=$row->[0]\"><span>$row->[1]</span></a></p>\n";         }     }     $sth->finish();     return $return; это, разумеется, чисто для примера

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> действительно, что за фигня ?? > присоединяюсь, но вежливо - WTF(lood) )) > если хочется использовать метод fetch() > [code] > if ($sth->err) { > $return .= "ERROR " > . $sth->errstr; > } > else { > while ( my $row > = $sth->fetch() ) { > > $return .= "<p><a title=\"$row->[1]\" href=\"http://site/?country=$row->[0]\"><span>$row->[1]</span></a></p>\n"; > } > } > $sth->finish(); > return $return; > [/code] > это, разумеется, чисто для примера
	Введите код, изображенный на картинке: