How can I convert a string of hex values to an integer?

[greymore57]

here is what I am trying to do!

# A string from a radius file
# the string is a bunch of hex values
# Value 1 = # bytes * 16777216
# Value 2 = # bytes * 65536
# Value 1 = # bytes * 256
# Value 1 = # bytes
# Test String is 0x00 0xdd 0xd1 0x98
# this will convert to 14590616
$instring = " 0x00 0xdd 0xd1 0x98";
$_ = $instring;
# Notice 2 spaces between elements lets strip those out first
s/ /,/g;

# also one space at the beginning to get rid of
s/^ //;

# OK instead of using split to read the valuse into an array,
# then doing the maths on each element
# is there an elegant way to convert this string to a decimal
# value?

 

[justice41]

I believe that I'm doing this correctly but i get a slightly different answer than you do. Perhaps you or someone else can see the mistake.

my $instring = "  0x00 0xdd 0xd1 0x98 ";
my $sum;
my $bit = 1;
$instring =~ s/^\s*(.*?)\s*$/$1/;
map { $sum += $bit * hex; $bit*=256 } reverse split /\s+/, $instring;

print "Sum: $sum\n";

This gives me

Sum: 14537112

instead of 14590616.

jaa

 

[sleipnir214]

justice41, I get the same answer you do.

And in keeping with "There's more than one way to do it".....

my $instring = " 0x00 0xdd 0xd1 0x98";
$instring =~ s/ |0x//g;
print hex($instring); ______________________________________________________________________
TANSTAAFL!

 

[greymore57]

Guys,

thanks for that! I think I must have mistyped in excel somewhere I just did the calculation again and got the answer you did. :~/


Once again thanks for your help