Perl 에서 integer 를 hexadecimal 로 바꿔주는 함수

다음 함수는 decimal 을 hexadecimal 로 변환해준다.

 sub tohex  
 {  
      my $s = sprintf("%X",$_[0]);  
      if(length($s) % 2 == 1){  
           $s = "0" . $s;  
      }  
      return $s;  
 }  

사용법은 다음과 같다.

 print(tohex(254)."\n");  

결과 : 254의 16진수 표기인 FE 가 찍힌다.

8비트 integer 를 두자리 hexadecimal 로 바꿔주는 목적만이라면 다음과 같이 해도 된다.

 sub tohex  
 {  
      sprintf("%02X",$_[0]);  
 }