<?xml version="1.0" encoding="koi8-r"?>
<rss version="0.91">
<channel>
    <title>OpenForum RSS: PERL DEC-&amp;gt;HEX</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/5984.html</link>
    <description>Собственно сабж, есть в стандартном наборе функия для такого преобразования и обратно, если нет то какие библиотечки надо доставить.&lt;br&gt;&lt;br&gt;P.S. my $dec = 255; my $hex = sprintf &quot;&#037;x&quot;,$dec; не катит так как не может обработать к примеру число 123238095734195632875428137146093219123, оно для него слишком большое.</description>

<item>
    <title>PERL DEC-&amp;gt;HEX (mee)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/5984.html#5</link>
    <pubDate>Tue, 20 Jul 2010 10:05:58 GMT</pubDate>
    <description>Можно проще:&lt;br&gt;&lt;br&gt;sub dec2hex($)&lt;br&gt;&#123;&lt;br&gt;  return sprintf(&quot;&#037;x&quot;,shift);&lt;br&gt;&#125;&lt;br&gt;</description>
</item>

<item>
    <title>PERL DEC-&amp;gt;HEX (JonnyB)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/5984.html#4</link>
    <pubDate>Fri, 05 Mar 2010 07:38:05 GMT</pubDate>
    <description>&amp;gt;покажи решение &lt;br&gt;&lt;br&gt;извиняюсь за никрофилию, но вдруг кому-то понадобится, как недавно мне&lt;br&gt;&lt;br&gt;sub DecToHex&lt;br&gt;    &#123;&lt;br&gt;        $res = &apos;&apos;;&lt;br&gt;        $rests = &apos;&apos;;&lt;br&gt;        $num = $_&#091;0&#093;;&lt;br&gt;        &#064;hex = (0..9, A..F);&lt;br&gt;        while($num &amp;gt; 15)&#123;&lt;br&gt;            $rests = $num&#037;16;&lt;br&gt;            $num = int($num/16);&lt;br&gt;            $res = join(&quot;&quot;, $hex&#091;$rests&#093;, $res);&lt;br&gt;        &#125;&lt;br&gt;        $res = join(&quot;&quot;, $hex&#091;$num&#093;, $res);&lt;br&gt;        return $res&lt;br&gt;    &#125;&lt;br&gt;</description>
</item>

<item>
    <title>PERL DEC-&amp;gt;HEX (DiverD)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/5984.html#3</link>
    <pubDate>Tue, 05 Dec 2006 11:38:44 GMT</pubDate>
    <description>покажи решение</description>
</item>

<item>
    <title>PERL DEC-&amp;gt;HEX (KobaLTD)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/5984.html#2</link>
    <pubDate>Tue, 05 Dec 2006 10:44:57 GMT</pubDate>
    <description>&amp;gt;Посмотри реализацию тут http://samy.pl/3.pl &lt;br&gt;&lt;br&gt;&lt;br&gt;Извратно&lt;br&gt;Вобщем все вопрос снимаеться проще написать собственную фукцию, что уже в принцепе сделано.</description>
</item>

<item>
    <title>PERL DEC-&amp;gt;HEX (DiverD)</title>
    <link>https://www.opennet.ru/openforum/vsluhforumID9/5984.html#1</link>
    <pubDate>Tue, 05 Dec 2006 10:25:18 GMT</pubDate>
    <description>Посмотри реализацию тут http://samy.pl/3.pl&lt;br&gt;</description>
</item>

</channel>
</rss>
