【已解决】为什么在嵌套子程序中无法获得匹配结果？

hcduguo

while (1) {
                                my $link_extor=HTML::LinkExtor->new(\&extract_links);
                                #建立连接，获取页面内容到$html
                $html=~m/<img(.*?)<img/s;
                                $link_extor->parse($1);
}
sub extract_links{
                #提取其中的Url
                                #连接新获取的url，提取页面内容
                             $html2 =~ m/<title.*?>(.*?)<\/title>.*?发布时间(.*?)提示/s;
                         my $ad_cont="$1\n$2";
                                 print "$ad_cont\n";

}

$ad_cont中无法匹配出相关网页的内容，打印结果总是$html中的内容。如果单独运行extract_links中的内容则能得到正确的结果？这是咋回事？感觉是$1中的内容混淆了，怎么处理这个问题？

[ 本帖最后由 hcduguo 于 2007-1-30 16:35 编辑 ]

韦一笑

子程序返回的是最后一个命令的值。这里应该就是print成功与否的值。。。。

不知道和这个有没有关系。。。

ulmer

try to use if ... else .. condition:

if ($html2 =~ m/<title.*?>(.*?)<\/title>.*?发布时间(.*?)提示/s) {
    my $ad_cont="$1\n$2";
    print "$ad_cont\n";
} else {
    return;
}

--ulmer

[ 本帖最后由 ulmer 于 2007-1-29 17:34 编辑 ]

hcduguo

是因为，第二个match没有匹配上，$1里面保留的是上一次匹配的结果！所以才出现这样的问题。没有匹配上是因为我使用了use encoding 'gbk'，导致中文无法匹配。
谢谢大家关注