Jump to content

Bitcoin/address validation: Difference between revisions

m
→‎{{header|Perl}}: 'my' instead of 'our'
m (→‎{{header|Perl}}: @hash is a terrible variable name)
m (→‎{{header|Perl}}: 'my' instead of 'our')
Line 6:
 
=={{header|Perl}}==
<lang perl>ourmy @b58 = qw{
1 2 3 4 5 6 7 8 9
A B C D E F G H J K L M N P Q R S T U V W X Y Z
a b c d e f g h i j k m n o p q r s t u v w x y z
};
ourmy %b58 = map { $b58[$_] => $_ } 0 .. 57;
ourmy $b58 = qr/[@{[join '', @b58]}]/x;
 
sub decode {
1,934

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.