Anonymous user
Non-decimal radices/Convert: Difference between revisions
→{{header|Perl}}: add Math::BaseCnv
(Added zkl) |
(→{{header|Perl}}: add Math::BaseCnv) |
||
Line 1,503:
} while $int = int($int / $radix);
scalar reverse $numeral;}</lang>
<code>Math::BaseCnv</code> can convert an integer to or from an
arbitrary other base. Its normal output is upper-case but the usual
<code>lc()</code> can convert (cf [[String case#Perl|String case]]).
<lang Perl>use Math::BaseCnv 'cnv';
print cnv("1a", 16, 10),"\n"; # "1a" from hex to decimal prints 26
print lc(cnv(26, 10, 16)),"\n"; # 26 from decimal to hex prints "1a"</lang>
<code>Math::BaseCalc</code> can do similar conversions with an
arbitrary set of characters for digits.
=={{header|Perl 6}}==
<lang perl6>sub from-base(Str $str, Int $base) {
| |||