perl中去掉字符串末尾字符后续的问题

tdb5881

我现在有一个字符串例如 rd55554a 或者  rfd66665a1  我现在想去掉后面的a  和a1  结果返回   为rd55554   和rfd66665  如何操作，这里面并不局限于后面是a开始  有可能是b 或者c  等字符开始  但是一定是字符  请大神指点 谢谢

asthman

1. @s = qw(rd5554a rfd66665a1);
   
2. for my $k (@s) {
   
3.     my $tmp = $k;
   
4.     $tmp =~ s/(\d+)[^\d].*$/\1/;
   
5.     print $tmp, "\n";
   
6. }

复制代码

tdb5881

回复 2# asthman

TKS  是这个效果