Исходное сообщение
"Debian 9.6 - perl 5.24.1 - UNSIGNED ZEROFILL" Отправлено medexpert, 21-Дек-18 14:18
>[оверквотинг удален] >> возникла опять - теперь надо разбираться. >> Поле MySQL два знака c UNSIGNED ZEROFILL. >> Выводит: >> site.com/catalog.pl?country=2 >> Должно быть: >> site.com/catalog.pl?country=02 >> Сайт старый. "Никогда такого не было, и вот опять" :) >> Может кто-то сталкивался? Какие мысли? > может это не perl виноват, а mysql? > как select происходит? Код для регионов (максимально сократил) - проблема одна. sub region { my $return; $text_quest = "   SELECT region_id, $DATA{'LANGUAGE'}_region_name   FROM address_region   WHERE   id_country = $country AND   region_act > 0   GROUP BY region_id "; $sth = $dbh->prepare($text_quest); $sth->execute(); if ($sth->err) {   $return .= "Ошибка catalog_region_cat " . $sth->errstr; }      $sth->bind_col( 1, \$region_id_tmp ); $sth->bind_col( 2, \$name_tmp );      while ( $sth->fetch ) { # Костыль для решения, но таких мест много... #     if ($region_id_tmp =~ /^\d$/) { #        $region_id_tmp = '0' . $region_id_tmp; #     }        $return .= "<p><a title=\"$title_tmp\"   href=\"http://$DATA{'LANGUAGE'}.$DATA{'HOST_NAME'}/$_[1]?country=$country®ion=$region_id_tmp\"><span>$name_tmp</span></a></p>\n"; } $sth->finish(); return $return; }

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>[оверквотинг удален] >>> возникла опять - теперь надо разбираться. >>> Поле MySQL два знака c UNSIGNED ZEROFILL. >>> Выводит: >>> site.com/catalog.pl?country=2 >>> Должно быть: >>> site.com/catalog.pl?country=02 >>> Сайт старый. "Никогда такого не было, и вот опять" :) >>> Может кто-то сталкивался? Какие мысли? >> может это не perl виноват, а mysql? >> как select происходит? > Код для регионов (максимально сократил) - проблема одна. > [code] > sub region { > my $return; > $text_quest = " > SELECT region_id, $DATA{'LANGUAGE'}_region_name > FROM address_region > WHERE > id_country = $country AND > region_act > 0 > GROUP BY region_id > "; > $sth = $dbh->prepare($text_quest); > $sth->execute(); > if ($sth->err) { > $return .= "Ошибка catalog_region_cat " . $sth->errstr; > } > $sth->bind_col( 1, \$region_id_tmp ); > $sth->bind_col( 2, \$name_tmp ); > while ( $sth->fetch ) { > # Костыль для решения, но таких мест много... > # if ($region_id_tmp =~ /^\d$/) { > # $region_id_tmp = '0' . > $region_id_tmp; > # } > $return .= "<p><a title=\"$title_tmp\" href=\"http://$DATA{'LANGUAGE'}.$DATA{'HOST_NAME'}/$_[1]?country=$country®ion=$region_id_tmp\"><span>$name_tmp</span></a></p>\n"; > } > $sth->finish(); > return $return; > } > [/code]
	Введите код, изображенный на картинке: