[size=large]1.去前导空格[/size]
s/^\s+//
[size=large]2.去尾部空格[/size]
s/\s+$//
[size=large]3.去前后部空格[/size]
s/^\s+|\s+$//g
[size=large]3.举例[/size]
s/^\s+//
[size=large]2.去尾部空格[/size]
s/\s+$//
[size=large]3.去前后部空格[/size]
s/^\s+|\s+$//g
[size=large]3.举例[/size]
my $str=~s/^\s+|\s+$//g;