请教perl如何取出网页中特定格式的文本

redalx

我写了一个脚本来模拟post提交表单，得到html格式返回的结果，现在我希望能够把网页中红色字体的文本选取出来，请问如何实现？
我查看了一些组件如HTML::TreeBuilder，HTML:arser，HTML::Toke:arser等。可是因为perl基础太差，没能够实现功能。请指点一下。
谢谢！！

quhan

使用功能强大正则表达式

allexit

临时写的，你将就着用吧。假设你需要分析的文档是index.htm。
#!/usr/bin/perl -w
#
#
use FileHandle;
$htmlfh = new FileHandle("index.htm") || die "can not open index.htm because of $!\n";
local($/) = undef;
$html = <$htmlfh>;
#print $html;
while($html =~ m/<font color=red>(.*?)<\/font>/gs)
{
        print $1,"\n";
}
close($htmlfh);