perl去除字符串前后的字符

使用正则表达式 ：

去掉后面的: $a=~s/ +$//;
?? ??? ?$service_name =~ s/(^s+|s+$)//g;
?? ??? ?print "$service_namen";

对于$_ 直接用下面就可以了：

~ s/(^s+|s+$)//g; // 前后各至少有一个空格

~ s/(^s*|s*$)//g; // * 是0个或者多个

print $_;

可以看到空白符没有了。

2、去掉前后的“，比如$a=‘"hello"’,要求只有hello没有",则

$_='"hello"';

s/(^"|"$)//g;