hexadecimal string 을 integer array 로 만들어주는 Perl 함수

 sub hexarray
 {  
      my @s_ = split(/ /, $_[0]);  
      my @a = ();  
      foreach(@s_){  
           push(@a, hex($_));  
      }  
      return @a;       
 }  

다음과 같이 사용한다.

 my $s = "FF FE 0A 10";  
 my @a = hexarray($s);  
 print(join(",",@a) . "\n");

결과는 255,254,10,16 와 같이 나온다.
키워드 : 16진수