perl去除文本行首尾空格

puzzled

　　perl中并没有其他语言中的trim函数，所以如果想去除文本行的首尾空格，只能自己写，不过用正则写起来也很简单，代码如下。



use strict ;
# Remove all leading whitespace
sub trimleft{
    my @array = @_ ;
    foreach(@array){
        s/^\s+// ;
    }
    return @array ;
}
# Remove all trailing whitespace
sub trimright{
    my @array = @_ ;
    foreach(@array){
        s/\s+$// ;
    }
    return @array ;
}
# Remove both leading and trailing whitespace
sub trim{
    my @array = @_ ;
    for(@array){
        s/^\s+|\s+$//g ;
    }
    return @array ;
}
# test cases
my @result = &trim("abc", " abc", "abc ", " abc ", " \t abc", "abc \t") ;
for(@result){
    print ;
    print "\n" ;
}
1 ;