zoukankan      html  css  js  c++  java
  • 根据li标签 查找class="alcw4 alcw41"对应的值

    jrhmpt01:/root/lwp/0526# cat a2.pl 
    use  LWP::UserAgent;
    use DBI;  
    use POSIX;
    use Data::Dumper;
    use HTML::TreeBuilder;
    my $ua = LWP::UserAgent->new;
    $ua->timeout(10);
    $ua->env_proxy;
    $ua->agent("Mozilla/8.0");
    
    
     use HTML::TreeBuilder::XPath;
       $tree= HTML::TreeBuilder::XPath->new;
      $tree->parse_file( "0526.txt");
    my    @pages=$tree->find_by_tag_name('li');
                          #@urlall除了包含每个类别的文章,还包含阅读排行里的文章
                          foreach (@pages) {
                                                   @titlepage = $_->attr('class');
                                                   foreach (@titlepage) {
                                                     if ($_){ 
                                                    print "$_ is $_
    ";
                                                    unless ($_ ~~ @urlall) { push (@urlall ,$_);};
                                                         };
                                               };
    };
    
    print @urlall ;
    print "
    ";
    
    
    foreach my $var (@urlall){
    #my $url=qq(/html/body//li[@class='$var']);
    my $url="/html/body//li[@class=xxx]";
    $url =~ s/xxx/"$var"/g;
    print "$url is $url
    ";
    @total= $tree->findvalues("$url");
    print @total;
    print "
    ";
    #my @title= $tree->findvalues('/html/body//li[@class="alcw4 alcw41"]');
    
    };
    jrhmpt01:/root/lwp/0526# cat 0526.txt 
      <li class="alcw4 alcw41">
                            <div class="ajjbfb txdbfb bfb100">100<span>%</span></div>
                            <div class="ajjbfb txdbfb bfb100">200<span>%</span></div>
                        </li>
    
    
      <li class="alcw4 alcw42">
                            <div class="ajjbfb txdbfb bfb100">100<span>%</span></div>
                            <div class="ajjbfb txdbfb bfb100">200<span>%</span></div>
                            <div class="ajjbfb txdbfb bfb100">scan<span>huihui</span></div>
                        </li>
    
    jrhmpt01:/root/lwp/0526# perl a2.pl 
    $_ is alcw4 alcw41
    $_ is alcw4 alcw42
    alcw4 alcw41alcw4 alcw42
    $url is /html/body//li[@class="alcw4 alcw41"]
    100%200%
    $url is /html/body//li[@class="alcw4 alcw42"]
    100%200%scanhuihui

  • 相关阅读:
    sql总结
    2018年6月10日笔记
    Docker入门之zabbix-agent篇
    2018年6月7日笔记
    2018年6月5日笔记
    Docker入门之container篇
    Docker入门之image篇
    Docker 入门
    2018年5月31日笔记
    2018年5月29日笔记
  • 原文地址:https://www.cnblogs.com/zhaoyangjian724/p/6199978.html
Copyright © 2011-2022 走看看