perl 去掉行头行尾的空格 分两步走: 先去掉前面的: $a=~s/^ +//; 在去掉后面的: $a=~s/ +$//; 一步就可以: s/(^ +| +$)//g; #print substr($var,0,1).”\n”;