Bitcoin/address validation: Difference between revisions
m
→Perl: integer pragma is actually not needed
(added perl solution) |
m (→Perl: integer pragma is actually not needed) |
||
Line 15:
sub decode {
use bigint
shift =~ m/$b58\Z/p ? $b58{${^MATCH}} + 58*decode(${^PREMATCH}) : 0
}
|