请帮忙使用perl写一个将16进制数转换成其反码的脚本

可以使用以下 perl 脚本将 16 进制数转换成其反码：

#!/usr/bin/perl

use strict;
use warnings;

print "Enter a hexadecimal number: ";
my $hex = <STDIN>;
chomp($hex);

# Convert hexadecimal to decimal
my $dec = hex($hex);

# Calculate the one's complement
my $ones_comp = ~$dec;

# Convert decimal to hexadecimal
my $hex_ones_comp = sprintf("%x", $ones_comp);

print "One's complement of $hex is $hex_ones_comp\n";

该脚本会提示用户输入一个 16 进制数，然后将其转换为十进制数，计算出其一补数（即反码），最后将其转换回 16 进制数并输出。