парсинг ассемблерного кода в perl

Question

0000000000033a1b subq $0x28,%rsp

У меня проблемы с извлечением 0x28 из вышеуказанной строки. Я могу извлечь subq из большого списка ассемблерного кода, но я хочу только 0x28, так как это дает мне размер стека. Я думал об использовании функции substr () buy, в ней есть варианты, другая может выглядеть так:

0000000000033a1c subq $0x000000b8,%rsp

в этом случае я хочу только 0x000000b8.

Я использую Perl.

Спасибо.

Answer 1

Без кода, я думаю, что вы не избежите знака доллара. Таким образом, вы просите, чтобы он совпадал с концом строки, , а затем '0x28'.

В любом регулярном выражении /\$0x(\p{XDigit}+)/ должно захватывать '28' из этой строки.

Answer 2

Если вы всегда вводите следующий формат:

instruction_address operand $stack_size,register

Вы можете сделать:

$a = '0000000000033a1b subq $0x28,%rsp';
$a =~s/^.*?\$(.*?),.*$/\1/;
print $a; # prints 0x28