Apparently, bytes as considered signed in Java. No problem.
I could fix the map, but it's getting quite long. It's easier to just use pack and unpack.
my $key = "0123456789ABCDEF0123456789ABCDEF"; local $_ = $key; s/^0+//; $_ = "0$_" if length % 2 == 1; $_ = "00$_" if /^[89ABCDEFabcdef]/; my @b = unpack('c*', pack('H*', $_));
In reply to Re^4: Perl equivalent of Java code
by ikegami
in thread Perl equivalent of Java code
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |