Sunday, December 30, 2012

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 해주기

No comments:

Post a Comment