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

Thanks for the reply
, Please let me know what I should read to get familiar with these ( I do not have much computer background ).
when i print the java output (each element of the array) I get the following result ..

1 35 69 103 -119 -85 -51 -17 1 35 69 103 -119 -85 -51 -17


The perl one gives this output

1 35 69 103 137 171 205 239 1 35 69 103 137 171 205 239

Replies are listed 'Best First'.
Re^4: Perl equivalent of Java code
by ikegami (Patriarch) on Jan 19, 2006 at 17:40 UTC

    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*', $_));

    [download]
[reply]
[d/l]
[select]
Re^4: Perl equivalent of Java code
by ikegami (Patriarch) on Jan 19, 2006 at 17:48 UTC
    Could you do me a favour and test to make sure it works for "FFFF", "000102" and "102"?
[reply]
      It works for 000102 and 102 but it dosent work for FFFF

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

[reply]
        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