免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › 请教，Perl 中的替换问题 ！
最近访问板块 发新帖
查看: 1767 | 回复: 5
打印 上一主题 下一主题

请教，Perl 中的替换问题 ！ [复制链接]

dgww

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2010-11-04 09:25 |只看该作者 |倒序浏览
现在有三行：
<td class="url"><a href="http://extreme-dm.com" target="_blank">Extreme-dm.com</a></td>
<td class="url"><a href="http://thestar.com" target="_blank">Thestar.com</a></td>
<td class="url"><a href="http://startribune.com" target="_blank">Startribune.com</a></td>

能否用一个表达式，把结果变为：
www.extreme-dm.com
www.thestar.com
www.startribune.com
兰花仙子

论坛徽章:
0
2楼 [报告]
发表于 2010-11-04 09:33 |只看该作者
$ perl -pne 's|http://(\w+)|www.$1|' 1.txt

<td class="url"><a href="www.extreme-dm.com" target="_blank">Extreme-dm.com</a></td>
<td class="url"><a href="www.thestar.com" target="_blank">Thestar.com</a></td>
<td class="url"><a href="www.startribune.com" target="_blank">Startribune.com</a></td>
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
兰花仙子

论坛徽章:
0
3楼 [报告]
发表于 2010-11-04 09:35 |只看该作者
$ perl -lpne '$_="www." .$1  if m|http://(.*?)"|' 1.txt   
www.extreme-dm.com
www.thestar.com
www.startribune.com
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
dgww

论坛徽章:
0
4楼 [报告]
发表于 2010-11-04 09:36 |只看该作者
本帖最后由 dgww 于 2010-11-04 09:40 编辑

多谢~，~
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
zhlong8

论坛徽章:
46
15-16赛季CBA联赛之四川 日期:2018-03-27 11:59:132015年亚洲杯之沙特阿拉伯 日期:2015-04-11 17:31:45天蝎座 日期:2015-03-25 16:56:49双鱼座 日期:2015-03-25 16:56:30摩羯座 日期:2015-03-25 16:56:09巳蛇 日期:2015-03-25 16:55:30卯兔 日期:2015-03-25 16:54:29子鼠 日期:2015-03-25 16:53:59申猴 日期:2015-03-25 16:53:29寅虎 日期:2015-03-25 16:52:29羊年新春福章 日期:2015-03-25 16:51:212015亚冠之布里斯班狮吼 日期:2015-07-13 10:44:56
5楼 [报告]
发表于 2010-11-04 09:49 |只看该作者
本帖最后由 zhlong8 于 2010-11-04 09:50 编辑
  1. perl -nE 'say q{http://}, $1 if m!"http://(.*?)"!' t
复制代码
没注意，和仙子的一样了
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
Ray001

论坛徽章:
0
6楼 [报告]
发表于 2010-11-04 10:54 |只看该作者
这不是perl的问题，是正则的问题。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP