Chinaunix

标题: 请教，Perl 中的替换问题！ [打印本页]

作者: dgww 时间: 2010-11-04 09:25
标题: 请教，Perl 中的替换问题！
现在有三行：
<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

作者: 兰花仙子 时间: 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>

作者: 兰花仙子 时间: 2010-11-04 09:35
$ perl -lpne '$_="www." .$1 if m|http://(.*?)"|' 1.txt
www.extreme-dm.com
www.thestar.com
www.startribune.com

作者: dgww 时间: 2010-11-04 09:36
本帖最后由 dgww 于 2010-11-04 09:40 编辑

多谢~，~

作者: zhlong8 时间: 2010-11-04 09:49
本帖最后由 zhlong8 于 2010-11-04 09:50 编辑

perl -nE 'say q{http://}, $1 if m!"http://(.*?)"!' t

复制代码

没注意，和仙子的一样了

作者: Ray001 时间: 2010-11-04 10:54
这不是perl的问题，是正则的问题。

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)