请教一个正则表达式的问题

infernor

$ 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

假如你的数据在@lines里，这样做：
foreach (@lines) {
        my ($str) = ($_ =~ /.*<td>(.*)<\/td>/);
        print "$str\n";
}

infernor

原帖由 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

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

复制代码

ly5066113

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

infernor

原帖由 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

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

yanyp

若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

你最好把原始文件内容，希望得到的结果贴出来，不要让大家猜你要匹配什么，晕

infernor

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

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

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