<?xml version="1.0" encoding="koi8-r"?>
<rss version="0.91">
<channel>
    <title>OpenForum RSS: Debian 9.6 - perl 5.24.1 - UNSIGNED ZEROFILL</title>
    <link>https://opennet.ru/openforum/vsluhforumID8/8150.html</link>
    <description>Здоровья Всем!&lt;br&gt;Столкнулся с проблемой второй раз:&lt;br&gt;1. На хостинге обновили perl - не смогли разобраться, попросил откатить (перенести на старый сервер).&lt;br&gt;2. На локальной машине умер диск с 8-кой. Поставил 9.6 и проблема возникла опять - теперь надо разбираться.&lt;br&gt;&lt;br&gt;Поле MySQL два знака c UNSIGNED ZEROFILL.&lt;br&gt;&lt;br&gt;Выводит:&lt;br&gt;site.com/catalog.pl?country=2&lt;br&gt;&lt;br&gt;Должно быть:&lt;br&gt;site.com/catalog.pl?country=02&lt;br&gt;&lt;br&gt;Сайт старый. &quot;Никогда такого не было, и вот опять&quot; :)&lt;br&gt;Может кто-то сталкивался? Какие мысли?&lt;br&gt;</description>

<item>
    <title>Debian 9.6 - perl 5.24.1 - UNSIGNED ZEROFILL (михалыч)</title>
    <link>https://opennet.ru/openforum/vsluhforumID8/8150.html#6</link>
    <pubDate>Mon, 31 Dec 2018 05:42:01 GMT</pubDate>
    <description>&amp;gt; &#091;...&#093; &lt;br&gt;&amp;gt;&amp;gt; $return .= &quot;&amp;lt;p&amp;gt;&amp;lt;a title=&#092;&quot;$row-&amp;gt;&#091;1&#093;&#092;&quot; href=&#092;&quot;http://site/?country=$row-&amp;gt;&#091;0&#093;&#092;&quot;&amp;gt;&amp;lt;span&amp;gt;$row-&amp;gt;&#091;1&#093;&amp;lt;/span&amp;gt;&amp;lt;/a&amp;gt;&amp;lt;/p&amp;gt;&#092;n&quot;; &lt;br&gt;&amp;gt; Ты бы ему лучше объяснил, что $sth-&amp;gt;bind_col - это напрашиваться на неприятности. &lt;br&gt;&lt;br&gt;ну вот, ты ему уже и объяснил ))&lt;br&gt;&lt;br&gt;а с другой стороны - это его неприятности,&lt;br&gt;какое нам дело до этого дела ))&lt;br&gt;</description>
</item>

<item>
    <title>Debian 9.6 - perl 5.24.1 - UNSIGNED ZEROFILL (ACCA)</title>
    <link>https://opennet.ru/openforum/vsluhforumID8/8150.html#5</link>
    <pubDate>Fri, 28 Dec 2018 21:12:34 GMT</pubDate>
    <description>&#091;...&#093;&lt;br&gt;&amp;gt; $return .= &quot;&amp;lt;p&amp;gt;&amp;lt;a title=&#092;&quot;$row-&amp;gt;&#091;1&#093;&#092;&quot; href=&#092;&quot;http://site/?country=$row-&amp;gt;&#091;0&#093;&#092;&quot;&amp;gt;&amp;lt;span&amp;gt;$row-&amp;gt;&#091;1&#093;&amp;lt;/span&amp;gt;&amp;lt;/a&amp;gt;&amp;lt;/p&amp;gt;&#092;n&quot;; &lt;br&gt;&lt;br&gt;Ты бы ему лучше объяснил, что $sth-&amp;gt;bind_col - это напрашиваться на неприятности.&lt;br&gt;&lt;br&gt;</description>
</item>

<item>
    <title>Debian 9.6 - perl 5.24.1 - UNSIGNED ZEROFILL (михалыч)</title>
    <link>https://opennet.ru/openforum/vsluhforumID8/8150.html#4</link>
    <pubDate>Fri, 21 Dec 2018 16:17:43 GMT</pubDate>
    <description>действительно, что за фигня ??&lt;br&gt;присоединяюсь, но вежливо - WTF(lood) ))&lt;br&gt;&lt;br&gt;если хочется использовать метод fetch()&lt;br&gt;&#091;code&#093;&lt;br&gt;    if ($sth-&amp;gt;err) &#123;&lt;br&gt;        $return .= &quot;ERROR &quot; . $sth-&amp;gt;errstr;&lt;br&gt;    &#125;&lt;br&gt;    else &#123;&lt;br&gt;        while ( my $row = $sth-&amp;gt;fetch() ) &#123;&lt;br&gt;            $return .= &quot;&amp;lt;p&amp;gt;&amp;lt;a title=&#092;&quot;$row-&amp;gt;&#091;1&#093;&#092;&quot; href=&#092;&quot;http://site/?country=$row-&amp;gt;&#091;0&#093;&#092;&quot;&amp;gt;&amp;lt;span&amp;gt;$row-&amp;gt;&#091;1&#093;&amp;lt;/span&amp;gt;&amp;lt;/a&amp;gt;&amp;lt;/p&amp;gt;&#092;n&quot;;&lt;br&gt;        &#125;&lt;br&gt;    &#125;&lt;br&gt;&lt;br&gt;    $sth-&amp;gt;finish();&lt;br&gt;    return $return;&lt;br&gt;&#091;/code&#093;&lt;br&gt;это, разумеется, чисто для примера&lt;br&gt;</description>
</item>

<item>
    <title>Debian 9.6 - perl 5.24.1 - UNSIGNED ZEROFILL (Аноним)</title>
    <link>https://opennet.ru/openforum/vsluhforumID8/8150.html#3</link>
    <pubDate>Fri, 21 Dec 2018 12:09:57 GMT</pubDate>
    <description>&#091;code&#093;country=$country&amp;#174;ion=$region_id_tmp&#091;/code&#093;&lt;br&gt;WTF ??&lt;br&gt;&lt;br&gt;&#091;code&#093;&lt;br&gt;my $val = 2;&lt;br&gt;$val = sprintf(&quot;&#037;02d&quot;, $val);&lt;br&gt;print $val;&lt;br&gt;&#091;/code&#093;&lt;br&gt;&lt;br&gt;sprintf уже не моден ?&lt;br&gt;</description>
</item>

<item>
    <title>Debian 9.6 - perl 5.24.1 - UNSIGNED ZEROFILL (medexpert)</title>
    <link>https://opennet.ru/openforum/vsluhforumID8/8150.html#2</link>
    <pubDate>Fri, 21 Dec 2018 11:18:59 GMT</pubDate>
    <description>&amp;gt;&#091;оверквотинг удален&#093;&lt;br&gt;&amp;gt;&amp;gt; возникла опять - теперь надо разбираться.&lt;br&gt;&amp;gt;&amp;gt; Поле MySQL два знака c UNSIGNED ZEROFILL.&lt;br&gt;&amp;gt;&amp;gt; Выводит: &lt;br&gt;&amp;gt;&amp;gt; site.com/catalog.pl?country=2 &lt;br&gt;&amp;gt;&amp;gt; Должно быть: &lt;br&gt;&amp;gt;&amp;gt; site.com/catalog.pl?country=02 &lt;br&gt;&amp;gt;&amp;gt; Сайт старый. &quot;Никогда такого не было, и вот опять&quot; :) &lt;br&gt;&amp;gt;&amp;gt; Может кто-то сталкивался? Какие мысли?&lt;br&gt;&amp;gt; может это не perl виноват, а mysql?&lt;br&gt;&amp;gt; как select происходит?&lt;br&gt;&lt;br&gt;Код для регионов (максимально сократил) - проблема одна.&lt;br&gt;&#091;code&#093;&lt;br&gt;sub region &#123;&lt;br&gt; my $return;&lt;br&gt; $text_quest = &quot;&lt;br&gt;  SELECT region_id, $DATA&#123;&apos;LANGUAGE&apos;&#125;_region_name &lt;br&gt;  FROM address_region&lt;br&gt;  WHERE&lt;br&gt;  id_country = $country AND&lt;br&gt;  region_act &amp;gt; 0&lt;br&gt;  GROUP BY region_id&lt;br&gt; &quot;;&lt;br&gt; $sth = $dbh-&amp;gt;prepare($text_quest);&lt;br&gt; $sth-&amp;gt;execute();&lt;br&gt;&lt;br&gt; if ($sth-&amp;gt;err) &#123;&lt;br&gt;  $return .= &quot;Ошибка catalog_region_cat &quot; . $sth-&amp;gt;errstr;&lt;br&gt; &#125;&lt;br&gt;&lt;br&gt; $sth-&amp;gt;bind_col( 1, &#092;$region_id_tmp );&lt;br&gt; $sth-&amp;gt;bind_col( 2, &#092;$name_tmp );&lt;br&gt;&lt;br&gt; while ( $sth-&amp;gt;fetch ) &#123;&lt;br&gt;&lt;br&gt;# Костыль для решения, но таких мест много...&lt;br&gt;#     if ($region_id_tmp =~ /^&#092;d$/) &#123;&lt;br&gt;#        $region_id_tmp = &apos;0&apos; .</description>
</item>

<item>
    <title>Debian 9.6 - perl 5.24.1 - UNSIGNED ZEROFILL (михалыч)</title>
    <link>https://opennet.ru/openforum/vsluhforumID8/8150.html#1</link>
    <pubDate>Fri, 21 Dec 2018 10:32:55 GMT</pubDate>
    <description>&amp;gt;&#091;оверквотинг удален&#093;&lt;br&gt;&amp;gt; на старый сервер).&lt;br&gt;&amp;gt; 2. На локальной машине умер диск с 8-кой. Поставил 9.6 и проблема &lt;br&gt;&amp;gt; возникла опять - теперь надо разбираться.&lt;br&gt;&amp;gt; Поле MySQL два знака c UNSIGNED ZEROFILL.&lt;br&gt;&amp;gt; Выводит: &lt;br&gt;&amp;gt; site.com/catalog.pl?country=2 &lt;br&gt;&amp;gt; Должно быть: &lt;br&gt;&amp;gt; site.com/catalog.pl?country=02 &lt;br&gt;&amp;gt; Сайт старый. &quot;Никогда такого не было, и вот опять&quot; :) &lt;br&gt;&amp;gt; Может кто-то сталкивался? Какие мысли?&lt;br&gt;&lt;br&gt;может это не perl виноват, а mysql?&lt;br&gt;как select происходит?&lt;br&gt;</description>
</item>

</channel>
</rss>
