mojo怎么检测节点是不是包含某个子元素?

yakczh_cu

1. 
   
2. 
   
3. use Mojo::DOM;
   
4. 
   
5. # Parse
   
6. 
   
7. 
   
8. $html=<<T
   
9. <h2> hello </h2>
   
10. 
    
11. <h2> <a href="www.google.com" > google</a></h2>
    
12. <h2> <a href="www.bing.com" > bing</a></h2>
    
13. <h2> <a href="www.yahoo.com" > yahoo</a></h2>
    
14. ...
    
15. 
    
16. T
    
17. ;
    
18. 
    
19. my $dom = Mojo::DOM->new($html);
    
20. 
    
21. 
    
22. for my $title ($dom->find('h2')->each) {
    
23.    
    
24.     #print $title;
    
25.    
    
26.     if( $title->find("a") ){
    
27.         
    
28.         print $title->find("a")->attr('href');
    
29.         
    
30.     }
    
31.    
    
32. }
    

复制代码

如果用find  会报错,  按http://mojolicio.us/perldoc/Mojo/DOM#toc 上面的match('a') 则一个都不匹配