Re: String adding

tim0304,
I think this does what you want.

my $hex = '0FB0306F207265616420746869733F';
my $sum;
$sum += hex($_) for unpack('A2' x (length($hex) / 2), $hex);
print $sum;
[download]

Cheers - L~R

Comment on Re: String adding Download Code

Replies are listed 'Best First'.
Re^2: String adding by Roy Johnson (Monsignor) on Nov 11, 2005 at 19:20 UTC
`$sum += hex($_) for $hex=~/../g;` [download] Is a bit less intimidating, IMO. Caution: Contents may have been coded under pressure.	[reply] [d/l]
Re^2: String adding by ikegami (Patriarch) on Nov 11, 2005 at 19:14 UTC
and save the result in Hex* to a variable.* Add: `$sum_as_hex = sprintf('%X', $sum);` [download]	[reply] [d/l]
Re^2: String adding by sauoq (Abbot) on Nov 11, 2005 at 20:01 UTC
`unpack('A2' x (length($hex) / 2), $hex);` [download] I'd rewrite that as `unpack('(A2)*', $hex);` [download] -sauoq "My two cents aren't worth a dime.";	[reply] [d/l] [select]
Re^3: String adding by ikegami (Patriarch) on Nov 11, 2005 at 21:14 UTC
That fails in 5.6.x. The parens were added to `pack` in 5.8.0	[reply] [d/l]