Perl hex用法及代码示例

#!/usr/bin/perl 
  
# Initialising some hexadecimal values for 
# the parameter of the hex function 
$A = "A"; 
$B = "B"; 
$C = "1A"; 
$D = "2C"; 
  
# Calling the hex function 
$E = hex $A; 
$F = hex $B; 
$G = hex $C; 
$H = hex $D; 
  
# Getting the equivalent decimal number 
# of the given hexadecimal number 
print "$E\n"; 
print "$F\n"; 
print "$G\n"; 
print "$H\n";

#!/usr/bin/perl 
  
# Initialising some hexadecimal values and 
# Calling the hex function 
$A = hex D; 
$B = hex af; 
$C = hex AF; 
$D = hex BF; 
  
# Getting the equivalent decimal number 
# of the given hexadecimal number 
print "$A\n"; 
print "$B\n"; 
print "$C\n"; 
print "$D\n";