增加点人气：字符串一次替换2部分

legs

字符如下：

1. 1a1b2c2-3d3

复制代码

"-"之前的字符里的数字替换为8，"-"之后的所有数字替换为9，结果应如下：

1. 8a8b8c8-9d9

复制代码

会几种其它方法，没想出来直接一句替换怎么做的（不使用分组法，假设不知道哪个位置是数字）。

orangetouch

1. perl -e '$s="1a2-3c22"; $a=0; $f=sub{if($_[0] eq "-"){$a=1; return "-";}elsif($a){return 9;}else{return 8;}}; $s=~s/(\d|\-)/$f->($1)/eg; print $s'

复制代码

orangetouch

1. perl -e '$s="1a2-3c22"; $a=0; $f=sub{if($_[0] eq "-"){$a=1; return "-";}elsif($a){return 9;}else{return 8;}}; $s=~s/(\d|\-)/$f->($1)/eg; print $s'

复制代码

legs

回复 4# orangetouch

谢谢，这也是种思路，不过搞得复杂了，我还是直接两个替换简单点：s///g;s///g