in reply to Re^4: Perl equivalent of Java code
in thread Perl equivalent of Java code

It works for 000102 and 102 but it dosent work for FFFF

FFFF in java 0 -1 -1 the Perl one 15 -1 -16

Replies are listed 'Best First'.
Re^6: Perl equivalent of Java code
by ikegami (Patriarch) on Jan 20, 2006 at 05:22 UTC
    Oh good, Java works as expected. But you found a bug in my code! Fix: 
    my $key = "0123456789ABCDEF0123456789ABCDEF";

local $_ = $key;
s/^0+//;
$_ = "0$_" if length() % 2 == 1;
$_ = "00$_" if /^[89ABCDEFabcdef]/;
my @b = unpack('c*', pack('H*', $_));

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom