perl中的trim函数

perl 中没有提供trim函数，不过我们可以根据需要自己写一个：

sub trim

{
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    if(length($string)<1){
        return " ";
    }else{
        return $string;
    }    
}