提取字符串

done_and_todo

回复 10# yestreenstars


    暂时没了，如果还有什么问题再问你吧，谢谢(^_^)

用户名注册后不能更改

1. 
   
2. 1136 19:08:49 root@localhost:~/shelltest/CU/4146434 # cat q
   
3. adf document.write(aa) adfs
   
4. sdfs document.write(bb) dfsfj dsf document.write(cc)
   
5. aaafd document.write("<a input onclick=Click() >"+dd+"</a>")
   
6. document.write("<font id=\"a\" onclick=\"click_here();\">"+ee+"</font>");
   
7. 1137 19:08:50 root@localhost:~/shelltest/CU/4146434 # grep -Po '(?<=\()[a-z]+|(?<=>"\+)[a-z]+' q
   
8. aa
   
9. bb
   
10. cc
    
11. dd
    
12. ee
    
13. 1138 19:08:51 root@localhost:~/shelltest/CU/4146434 #
    

复制代码

done_and_todo

回复 10# yestreenstars


    不好意思，还有几种情况：
1. document.write("<a onclieck=fun()" + ff + "</a>"); 加号与ff之间有空格
2. document.write(gg + hh); 我想取得gg和hh
3. document.write(ff + "<a>"); 或 document.write("<a>" + ff); 只有一个加号。

yestreenstars

回复 13# done_and_todo

还有其他情况吗？别到时我写完又来新需求~
   

jeffreyst

回复 14# yestreenstars


    膜拜星辰兄的技术以及这种锲而不舍的解答问题到精神，

yestreenstars

@jeffreyst
过奖了~

最新代码：

1. $ cat i
   
2. adf document.write(aa) adfs
   
3. sdfs document.write(bb) dfsfj dsf document.write(cc)
   
4. aaafd document.write("<a input onclick=Click() >"+dd+"</a>")
   
5. document.write("<font id=\"a\" onclick=\"click_here();\">"+ee+"</font>");
   
6. document.write("<a onclieck=fun()" + ff + "</a>");
   
7. document.write(gg + hh);
   
8. document.write(ff + "<a>");
   
9. document.write("<a>" + ff);
   
10. 
    
11. $ perl -ne '1 while(/document.write\((?:"[^+]+"\s*\+\s*)?([^+)]+)(?:\s*\+\s*)?([^+)"]+)?(?:\s*\+\s*"[^+]+")?\)(?{print "$1\n";print "$2\n" if $2})/g)' i
    
12. aa
    
13. bb
    
14. cc
    
15. dd
    
16. ee
    
17. ff
    
18. gg
    
19. hh
    
20. ff
    
21. ff

复制代码

用户名注册后不能更改

回复 16# yestreenstars

这正则太美我不敢看{:3_201:}

li0924

回复 16# yestreenstars
;牛逼哄哄的！

   

done_and_todo

回复 16# yestreenstars


    谢谢，已经可以了，但还有一点小小的要求 ，就是要搜的是document.write和document.createTextNode中的字符串，而不仅仅是document.write，还有就是如“ff +”这种情形时，ff后的空格最好不要输出来。{:3_193:}

yestreenstars

回复 19# done_and_todo

OMG，好吧，再次修改~

1. perl -ne '1 while(/document.(?:write|createTextNode)\((?:"[^+]+"\s*\+\s*)?([^+) ]+)(?:\s*\+\s*)?([^+ )"]+)?(?:\s*\+\s*"[^+]+")?\)(?{print "$1\n";print "$2\n" if $2})/g)' i

复制代码