perl中的trim函數

perl 中沒有提供trim函數，不過我們可以根據需要自己寫一個：

sub trim

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