HTML::TreeBuilder问题

wfnh

我想提取相关标签里边的内容，用这个模块实现，但什么都显示不了，郁闷~~~请大家帮帮忙看一下，什么问题！！~

use LWP; use Data::Dumper qw(Dumper); $Data::Dumper::Indent = 1; use HTML::TreeBuilder; my $browser = LWP::UserAgent->new; my $url='http://xieguozhongblog.blog.hexun.com/'; my $file='d:\\temp\\index.htm'; my $response=$browser->get($url,':content_file'=>$file); die "can't get $url --",$response->content_type unless $response->content_type eq 'text/html'; open FH,"<",$file||die "can't open $file :$!\n"; print "title\t\t\t\tdate\t\t\tsite\t\t\t\t\t\n"; my $tree = new HTML::TreeBuilder; $tree->parse_file(\*FH); #print Dumper($tree),"\n"; foreach my $row($tree->find_by_tag_name("tr")) { foreach my $cell($row->content_list) { print $cell->as_text,"123\t"; } print "\n"; }

撒哈拉里的鱼

我还是那句话，你不是没有学会perl，而是没有学会解决问题的思路。
wireshark抓包一看就能猜到了。

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. use LWP;
   
6. use Data::Dumper qw(Dumper);
   
7. $Data::Dumper::Indent = 1;
   
8. use HTML::TreeBuilder;
   
9. my $url='http://xieguozhongblog.blog.hexun.com/';
   
10. my $browser = LWP::UserAgent->new;
    
11. $browser->agent( "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022)" );
    
12. my $response=$browser->get($url);
    
13. if ( not $response->is_success )
    
14. {
    
15. #print Dumper( $response );
    
16. die "Get $url error.\n";
    
17. }
    
18. my $tree = HTML::TreeBuilder->new_from_content( $response->content );
    
19. #print Dumper($tree),"\n";
    
20. foreach my $row($tree->find_by_tag_name("tr"))
    
21. {
    
22. foreach my $cell($row->content_list)
    
23. {
    
24.   print $cell->as_text,"123\t";
    
25. }
    
26. print "\n";
    
27. }
    

复制代码

flw

原帖由 撒哈拉里的鱼 于 2008-12-31 13:54 发表
我还是那句话，你不是没有学会perl，而是没有学会解决问题的思路。
wireshark抓包一看就能猜到了。

我发现 Perl 用户群中没学会解决问题的思路的人的比例比较多。

wfnh

原帖由 flw 于 2008-12-31 14:04 发表

我发现 Perl 用户群中没学会解决问题的思路的人的比例比较多。

多谢！前辈教训的是！~~~~以后一定注意~~~~