byte의 array를 string으로 'serialize' 하는 법

1:  sub TESTserializeArray  
2:  {  
3:       my @a = hexarray("A0 A1 A2 FF FE FD");  
4:       my $s = serializeArray(@a);  
5:       print(stohex($s) . "\n");  
6:  }  
7:  sub serializeArray   
8:  {  
9:       my $s = "";  
10:       foreach(@_){  
11:            $s .= pack('C1', $_);       
12:       }  
13:       return $s;  
14:  }  

Perl 에서 binary file 등을 다룰 때는 byte의 연속을 string 으로 보고 작업하므로 이 함수는 유용하다.