[perl] 함수 인자 파서, 함수의 수령인자를 ','기준으로 구분해서 반환하는 기능능능

2일 전에 perl을 시작했는데 하면 할 수록 편리하네요!

C언어였다면 메모리 관리며 이것 저것 관리했을텐데...

함수의 인자들을 분리하는 함수입니다.

ex)

function(A, B,C, D, E);

'A'

' B'

'C'

'D'

' E'

이렇게 구분되는 것을 어떤 분이 만들어 놓으신 trim을 이용해서 앞 부분의 space를 전부 제거하였습니다.

#!/usr/bin/perl use warnings; sub trim($) { my $string = shift; $string =~ s/^\s+//; $string =~ s/\s+//; return $string; } sub parser($) { my $string = shift; my @result; @result = split(/\(/, $string); @result = split(/\)/, $result[1]); @result = split(/,/, $result[0]); $size = @result; for ($i = 0 ; $i < $size ; $i++) { $result[$i] = trim($result[$i]); } return @result; } open (FILE, $ARGV[0]); while ($in_file = <FILE>) { chomp($in_file); @res = parser($in_file); $size = @res; print "$size\n"; for ($i = 0 ; $i < $size ; $i++) { print "$res[$i],"; } print "\n"; } close (FILE);