perl去除文本行首尾空格
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 ;
页:
[1]