论坛首页 » 程序设计区 » 软件/网站开发 » Python/Php/Perl

当前时区为 UTC + 8 小时


发表新帖 回复这个主题
分享到0
  分页： 1 / 1  [ 4 篇帖子 ] 
  打印预览 上一个主题 | 下一个主题 
作者 内容
1 楼  cjxgm
 文章标题 : [perl]如何一句实现正则提取并删除提取的内容？
帖子发表于 : 2012-09-01 17:50 
头像

注册: 2010-04-23 20:40
帖子: 1950
地址: 浙江·杭州
系统: Arch Linux
送出感谢: 2 次
接收感谢: 31 次
代码:
($m) = /^(\d+)/;
s/^(\d+)//g;

如何用一句实现这样的功能，且返回 $m（以便 and do{}），且不用写两次正则？


_________________
我是 Giumo Clanjor（哆啦比猫/兰威举）
Where there is a hacker, there is art. | Develop for Developers. (C & perl5)
博客 | Clanjor Prods.
类 C 语言到 brainfuck 编译器

页首
 用户资料  
 
2 楼  eexpress
 文章标题 : Re: [perl]如何一句实现正则提取并删除提取的内容？
帖子发表于 : 2012-09-01 22:01 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4 次
接收感谢: 274 次
一句正则，不是至少有3个结果嘛。
$` $& $'


_________________
● 鸣学

页首
 用户资料  
 
3 楼  caozhibin1988
 文章标题 : Re: [perl]如何一句实现正则提取并删除提取的内容？
帖子发表于 : 2012-09-22 13:40 

注册: 2008-05-17 4:28
帖子: 42
送出感谢: 0 次
接收感谢: 0 次
$m=$1 if(s/^(\d+)//g);
???
页首
 用户资料  
 
4 楼  sevk
 文章标题 : Re: [perl]如何一句实现正则提取并删除提取的内容？
帖子发表于 : 2012-09-23 9:38 
头像

注册: 2007-05-08 16:26
帖子: 2058
地址: 火星内核某分子内某原子核内
系统: arch
送出感谢: 20 次
接收感谢: 6 次
ruby代码：
代码:
str1 = "123abc"
str1.gsub!(/^(\d+)/,'')


返回结果： => "abc"


_________________
笔记本 :
F208S : gentoo
A460P i3G D6 : UBUNTU + WIN7
UN43D1 : UBUNTU + WIN7
1000人超级QQ群 LINUX + WIN : 31465544 或 18210387

页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  分页： 1 / 1
  [ 4 篇帖子 ] 

论坛首页 » 程序设计区 » 软件/网站开发 » Python/Php/Perl

当前时区为 UTC + 8 小时

在线用户

正在浏览此版面的用户：没有注册用户 和 1 位游客

您 不能 在这个版面发表主题
您 不能 在这个版面回复主题
您 不能 在这个版面编辑帖子
您 不能 在这个版面删除帖子
您 不能 在这个版面提交附件

前往 :  
本站点为公益性站点，用于推广开源自由软件，由 DiaHosting VPS 和 BudgetVM VPS 提供服务。
我们认为：软件应可免费取得，软件工具在各种语言环境下皆可使用，且不会有任何功能上的差异；
人们应有定制和修改软件的自由，且方式不受限制，只要他们自认为合适。
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译