perl 中没有提供trim函数，不过我们可以根据需要自己写一个：
sub trim
{ my $string = shift; $string =~ s/^\s+//; $string =~ s/\s+$//; if(length($string)<1){ return " "; }else{ return $string; } }
perl 中没有提供trim函数，不过我们可以根据需要自己写一个：
sub trim
{ my $string = shift; $string =~ s/^\s+//; $string =~ s/\s+$//; if(length($string)<1){ return " "; }else{ return $string; } }