这个正则为什么没有匹配出递归来？

yakczh_cu

1. 
   
2. $html=<<HT
   
3. <ul><li><a>xxxxxx</a></li>
   
4. <li>sssssssss</li>
   
5.     <li>
   
6.          <ul><li><a>xxxxxx</a></li>
   
7.             <li>sssssssss</li>
   
8.              <li>
   
9.                  <ul>
   
10.                  <li><a>xxxxxx</a></li>
    
11.                  <li>sssssssss</li>
    
12.                  </ul>
    
13.              </li>
    
14.          </ul>
    
15.      </li>
    
16. </ul>
    
17. HT
    
18. ;
    
19. 
    
20. 
    
21. 
    
22. #print $html;
    
23. 
    
24. $html =~ /(<ul>\s*<li><a>\w+<\/a><\/li>\s+<li>\w+<\/li>\s+<li>\s?( \s+|(?R))<\/li><\/ul>)/sim;
    
25. 
    
26. print [        DISCUZ_CODE_0        ];
    

复制代码

zhlong8

这里 /s /m 都没用

if ( $html =~ /
    (<ul>\s*
        <li><a>\w+<\/a><\/li>\s+
        <li>\w+<\/li>\s+
        <li>(\w+|\s*(?R)\s*)<\/li>\s* #这样才是正确的
    <\/ul>)/ix ) {
    say "match: $1";
} else {
    say 'not match';
}

zhlong8

写递归思路一定要清晰，什么时候终止什么时候递归一点都不能迷糊的

zhlong8

还有你数据缺了，最里面那层少了一组 <li> </li>