Help convert [00] from a string to hex

[tgillitzer]

I have a non-fixed length string that contains hex values in a readable
format and other text. I need to convert the hex values [..] to thier
respective hex value (using pack i would assume).

Lets say the string is:
'[FF]test[FF]test[FF]test[FF]'

I need to convert [..] to the hex value.
So, the result would be:
'ÿtestÿtestÿtestÿ' if printed (where ÿ is the hex value converted
to ascii of the display font)

I'm not sure how to do this with perl, but any help would be
appreciated.

Thanks

 

[Tony Curtis]

On 13 Mar 2005 11:19:34 -0800,

I have a non-fixed length string that contains hex values in
a readable format and other text. I need to convert the hex
values [..] to thier respective hex value (using pack i
would assume).

Err, that's a no-op.

Lets say the string is: '[FF]test[FF]test[FF]test[FF]'

I need to convert [..] to the hex value. So, the result
would be: 'ÿtestÿtestÿtestÿ' if printed (where ÿ is the hex
value converted to ascii of the display font)

But it already *is* a hex value!

Do you mean:

I have a string containing delimited hexadecimal numerals
and I want to extract those substrings, and replace them
with the character, from the current character set, whose
numeric value is represented by those numerals

?

If so, you're probably looking for

perldoc -f hex
perldoc -f chr

hth
t

 

[Tim Heaney]

Lets say the string is:
'[FF]test[FF]test[FF]test[FF]'

I need to convert [..] to the hex value.
So, the result would be:
'ÿtestÿtestÿtestÿ' if printed (where ÿ is the hex value converted
to ascii of the display font)

Something like

$string =~ s/\[([0-9A-F]{2})\]/chr(hex($1))/eg;

might be what you're after.

I hope this helps,

Tim

 

[tgillitzer]

On 13 Mar 2005 11:19:34 -0800,

I have a non-fixed length string that contains hex values in
a readable format and other text. I need to convert the hex
values [..] to thier respective hex value (using pack i
would assume).

Err, that's a no-op.

Lets say the string is: '[FF]test[FF]test[FF]test[FF]'

I need to convert [..] to the hex value. So, the result
would be: 'ÿtestÿtestÿtestÿ' if printed (where ÿ is the hex
value converted to ascii of the display font)

But it already *is* a hex value!

No. It is four bytes that represent a single byte that was recieved.
Such as, a single byte of FF is recieved and is displayed as [FF]
instead of ÿ. I need to convert it back to the single byte version.

 

[tgillitzer]

Lets say the string is:
'[FF]test[FF]test[FF]test[FF]'

I need to convert [..] to the hex value.
So, the result would be:
'ÿtestÿtestÿtestÿ' if printed (where ÿ is the hex value converted
to ascii of the display font)

Something like

$string =~ s/\[([0-9A-F]{2})\]/chr(hex($1))/eg;

Ah... the e option. Guess I should have looked more closely at that.
This took care of it, as I was able to use pack.
$_ =~ s/\[(..)\]/pack('H2',$1)/eg;
seems to have taken care of it. Thanks!

 

[Fabian Pilkowski]

Lets say the string is:
'[FF]test[FF]test[FF]test[FF]'

I need to convert [..] to the hex value.
So, the result would be:
'ÿtestÿtestÿtestÿ' if printed (where ÿ is the hex value converted
to ascii of the display font)

Something like

$string =~ s/\[([0-9A-F]{2})\]/chr(hex($1))/eg;

might be what you're after.

Based on his own idea ("using pack i would assume") he could also use
pack() in this substition:

$string =~ s/\[([0-9A-F]{2})\]/pack'H*',$1/eg;

Nevertheless, there are many other possibilities of reaching this.

regards,
fabian