忘记密码   免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 705 | 回复: 2

perl中去掉字符串末尾字符后续的问题 [复制链接]

论坛徽章:
0
发表于 2018-07-25 23:17 |显示全部楼层
本帖最后由 tdb5881 于 2018-07-25 23:22 编辑

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

论坛徽章:
0
发表于 2018-07-26 10:30 |显示全部楼层
  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. }
复制代码

论坛徽章:
0
发表于 2018-07-26 17:58 |显示全部楼层
回复 2# asthman

TKS  是这个效果
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:wangnan@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP