[SOLVED] Perl: string to hex number

fritz001 · 02-23-2018, 05:18 AM

Hello,

Code:

here I've run into another issue: 

   my @cmd_array = split (/ /,$cmd);
   my $rid = $cmd_array[$#cmd_array];
   chomp ($rid);
   my $rid_str_hex = sprintf "0x%02x", hex $rid;

So I'm getting output from one command and that output is a string:

Ex: 5, 7f, 4a ....

so,

1st issue, I have to convert that string to a hex number =>5 to become 0x05, 7f to be 0x7f...

2nd issue, I have to increment that number by one: lets say 4a+1 = 4b
and assign the result to a variable..

Any ideas howto handle this ?

keefaz · 02-23-2018, 07:41 AM

Just convert the number using hex like you did on sprintf

Code:

my $number = hex((split(/ /, $cmd))[-1]);
printf "number = 0x%02x\n", $number;

$number++;
printf "number = 0x%02x\n", $number;

fritz001 · 02-24-2018, 05:50 AM

Quote:

Originally Posted by keefaz

Just convert the number using hex like you did on sprintf

Code:

my $number = hex((split(/ /, $cmd))[-1]);
printf "number = 0x%02x\n", $number;

$number++;
printf "number = 0x%02x\n", $number;

Much thanks !!