perl去除字符串前后的空格

使用正则表达式

分两步走:
先去掉前面的: $a=~s/^ +//;
在去掉后面的: $a=~s/ +$//;

一步就可以：
s/(^s+|s+$)//g;

删除字符串末尾的换行：

chomp函数通常会删除变量里包含的字符串尾部的换行符。它是chop函数的一个略微安全些的版本，因为它对没有换行符的字符串没有影响。更准确地说，它根据了解$/的当前值删除字符串终止符，而不只是最后一个字符。和chop不同，chomp返回删除的字符数量。

完！