[perl] trim 구현하기..함수..

앞뒤의 공백을 잘라내버리는 trim함수를

perl 에서 사용하기 위한 함수구현입니다.

sub trim($)

{

    my ($str) = @_;

    $str =~ s/^\s+//g;

    $str =~ s/\s+$//g;

    return $str;

}

끝.