perl去除字符串前后的字符

使用正则表达式 ：

1、去掉前后的空格：
去掉前面的: $a=~s/^ +//;  ～为绑定操作符

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

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

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

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

print $_;

可以看到空白符没有了。

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

$_='"hello"';

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