如何在perl中减去包含十六进制数的字符串

Question

my $first = sprintf("%x",3730);
my $second = sprintf("%x",3700);
my $err = sprintf("%x",20);

if (($first - $second) > $err) {
    print "err";
}
else{
    print "done";
}

我想在这里打印'错误'，但它正在打印'完成'。

当两个字符串都包含十六进制数字时，如何在perl中进行减法。

Answer 1

if ( hex($first) - hex($second) > hex($err) ) {