perl - 在 Perl 中，如何将字符串中的多个十进制数字转换为等效的十六进制？

Question

在 Perl 中，如何将文件一行中的多个十进制数字转换为十六进制等效值？

我有代码将转换找到的最后一个数字但保留先前的数字未转换，我想转换所有数字而不仅仅是找到的最后一个数字：

if ($line =~ /[0-9]+/) {
   $loc = index($line,/\s+[0-9]+\s*/);
   $mybyte = substr($line,$loc);
   $newbyte = sprintf("%x\n", $mybyte);
   $newline = substr($line,0,$loc).$newbyte;
   print my_report $newline;
}

Answer 1

$line =~ s/([0-9]+)/sprintf "%X", $1/eg;