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