免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2277 | 回复: 9

请教一个正则表达式的问题 [复制链接]

论坛徽章:
0
发表于 2009-12-24 13:59 |显示全部楼层
$ cat urtmp
<td>ffft10sw fe</td>
<td><td>ffft10sw fe</td>
<td><td></td><td>ffft10sw fe</td>
<td><td></td><td>ffft10sw fe</td>


我想要提取后面的<td>.*sw.*</td>这部分的内容,用模式m{(<td>.*?sw.*?</td>)}得不出来正确结果。

论坛徽章:
0
发表于 2009-12-24 14:14 |显示全部楼层
假如你的数据在@lines里,这样做:
foreach (@lines) {
        my ($str) = ($_ =~ /.*<td>(.*)<\/td>/);
        print "$str\n";
}

论坛徽章:
0
发表于 2009-12-24 14:39 |显示全部楼层
原帖由 iamlimeng 于 2009-12-24 14:14 发表
假如你的数据在@lines里,这样做:
foreach (@lines) {
        my ($str) = ($_ =~ /.*(.*)/);
        print "$str\n";
}

可能我没说清楚。

比如这行数据<td><td></td><td>ffft10sw fe</td>,我要提取出来<td>ffft10sw fe</td>,而不是<td><td></td><td>ffft10sw fe</td>

论坛徽章:
0
发表于 2009-12-24 14:40 |显示全部楼层
  1. 用XML::DOM或者HTML::DOM解析吧
复制代码

论坛徽章:
23
15-16赛季CBA联赛之吉林
日期:2017-12-21 16:39:27白羊座
日期:2014-10-27 11:14:37申猴
日期:2014-10-23 08:36:23金牛座
日期:2014-09-30 08:26:49午马
日期:2014-09-29 09:40:16射手座
日期:2014-11-25 08:56:112015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:49:0315-16赛季CBA联赛之山东
日期:2017-12-21 16:39:1915-16赛季CBA联赛之广东
日期:2016-01-19 13:33:372015亚冠之山东鲁能
日期:2015-10-13 09:39:062015亚冠之西悉尼流浪者
日期:2015-09-21 08:27:57
发表于 2009-12-24 15:19 |显示全部楼层

回复 #1 infernor 的帖子

<td>[^<>]*sw[^<>]*</td>

论坛徽章:
0
发表于 2009-12-24 16:21 |显示全部楼层
原帖由 ly5066113 于 2009-12-24 15:19 发表
[^]*sw[^]*

谢谢Tim
对我给出来的原始文件,这样是可以得出正确结果。

如果<td>..sw..</td>里面有<img>这种,比如<td><td></td><td><img></a>ffft10sw fe</td>,我想提取<td><img></a>ffft10sw fe</td>出来

论坛徽章:
23
15-16赛季CBA联赛之吉林
日期:2017-12-21 16:39:27白羊座
日期:2014-10-27 11:14:37申猴
日期:2014-10-23 08:36:23金牛座
日期:2014-09-30 08:26:49午马
日期:2014-09-29 09:40:16射手座
日期:2014-11-25 08:56:112015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:49:0315-16赛季CBA联赛之山东
日期:2017-12-21 16:39:1915-16赛季CBA联赛之广东
日期:2016-01-19 13:33:372015亚冠之山东鲁能
日期:2015-10-13 09:39:062015亚冠之西悉尼流浪者
日期:2015-09-21 08:27:57
发表于 2009-12-24 18:03 |显示全部楼层

回复 #6 infernor 的帖子

print $1 if m{.*(<td>.*?sw.*?</td>}

论坛徽章:
0
发表于 2009-12-26 18:21 |显示全部楼层
若sw后有多个</td> 你要匹配离sw后面最近的一个</td>:
if (m#
        <td>
        (?! .* <td>)
        .*sw(.*?)</td>#xs)

{
print "$&";
}
若要匹配最后的一个</td>:
if (m#
        <td>
        (?! .* <td>)
        .*sw(.*)</td>$#xs)

{
print "$&";
}

[ 本帖最后由 yanyp 于 2009-12-26 18:23 编辑 ]

论坛徽章:
0
发表于 2009-12-27 12:08 |显示全部楼层
你最好把原始文件内容,希望得到的结果贴出来,不要让大家猜你要匹配什么,晕

论坛徽章:
0
发表于 2010-01-06 13:15 |显示全部楼层
原帖由 yanyp 于 2009-12-26 18:21 发表
若sw后有多个 你要匹配离sw后面最近的一个:
if (m#
        
        (?! .* )
        .*sw(.*?)#xs)

{
print "$&";
}
若要匹配最后的一个:
if (m#
        
        (?! .* )
        .*sw(.*) ...

不好意思,现在才看到回帖。可以解决我的问题,谢谢。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP