perl中的trim函数

 

1. sub trim 
2. { 
3.         my $string = shift; 
4.         $string =~ s/^\s+//; 
5.         $string =~ s/\s+$//; 
6.         return $string; 
7. } 

 

转载于:https://blog.51cto.com/zorro/1132234