앞뒤의 공백을 잘라내버리는 trim함수를
perl 에서 사용하기 위한 함수구현입니다.
sub trim($)
{
my ($str) = @_;
$str =~ s/^\s+//g;
$str =~ s/\s+$//g;
return $str;
}
끝.
'업무 > Perl' 카테고리의 다른 글
[perl] DB접속하기 함수구현 (0) | 2012.12.10 |
---|---|
[perl] HP-UX에서 Text::Iconv 가 안될때해결법.. (0) | 2012.05.25 |
[perl] Hash 크기 구하기 (0) | 2012.02.27 |
[perl] DBD-mysql 모듈 경로지정해서 설치하기 (0) | 2012.02.20 |
[perl] 핸들변수 함수인자로 넘겨버리기 (0) | 2012.02.02 |