Perl 에서 array 와 string 사이의 변환

array 를 string 으로 변환해주는 Perl 함수

 sub atos  
 {  
      my $s = join(", ", @_);  
      return $s;  
 }  

다음과 같이 쓰면 array 를 간편히 print 해주기 쉽다.

 my @a = (10, 20, 30, 40);  
 print(atos(@a)."\n");  

string 을 array 로 변환해주는 Perl 함수

 sub stoa  
 {  
      return split(//, $_[0]);  
 }  

Perl에서 string의 문자 하나하나를 다루는 법 참조
키워드 : print array, Perl 에서 array 를 print 해주기