Chinaunix

标题: 请教一个正则表达式的问题 [打印本页]

---

作者: infernor    时间: 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>)}得不出来正确结果。

---

作者: iamlimeng    时间: 2009-12-24 14:14
假如你的数据在@lines里，这样做：
foreach (@lines) {
        my ($str) = ($_ =~ /.*<td>(.*)<\/td>/);
        print "$str\n";
}

---

作者: infernor    时间: 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>

---

作者: lululau    时间: 2009-12-24 14:40

1. 用XML::DOM或者HTML::DOM解析吧

复制代码

---

作者: ly5066113    时间: 2009-12-24 15:19
标题: 回复 #1 infernor 的帖子
<td>[^<>]*sw[^<>]*</td>

---

作者: infernor    时间: 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>出来

---

作者: ly5066113    时间: 2009-12-24 18:03
标题: 回复 #6 infernor 的帖子
print $1 if m{.*(<td>.*?sw.*?</td>}

---

作者: yanyp    时间: 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 编辑 ]

---

作者: iamlimeng    时间: 2009-12-27 12:08
你最好把原始文件内容，希望得到的结果贴出来，不要让大家猜你要匹配什么，晕

---

作者: infernor    时间: 2010-01-06 13:15

原帖由 yanyp 于 2009-12-26 18:21 发表
若sw后有多个 你要匹配离sw后面最近的一个:
if (m#
        
        (?! .* )
        .*sw(.*?)#xs)

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

不好意思，现在才看到回帖。可以解决我的问题，谢谢。

---

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

Powered by Discuz! X3.2