提取字符串

done_and_todo

当前我有如下字符串:
adf document.write(aa) adfs
sdfs document.write(bb) dfsfj dsf document.write(cc)

我想取document.wirte括号中的字符串，请问如何写？谢谢。

jeffreyst

cat file | grep -oP "(?<=\()[a-z]+"
aa
bb
cc

cjaizss

出什么样的结果?
aa
bb cc
还是
aa
bb
cc

yestreenstars

1. grep -oP '(?<=document.write\()[^)]+'

复制代码

done_and_todo

回复 3# cjaizss


    最好是
aa
bb
cc

done_and_todo

回复 4# yestreenstars


    不好意思，还少说了种情况：
aaafd document.write("<a input onclick=Click() >"+dd+"</a>")

如果这种情况，能否也一起取出来，最好是能取得dd，我最终想要的是dd.

yestreenstars

回复 6# done_and_todo

还有别的情况吗？

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. $ perl -ne '1 while(/document.write\((?:"[^"]+"\+)?([^+)]+)(?:\+"[^"]+")?\)(?{print "$1\n"})/g)' i
   
6. aa
   
7. bb
   
8. cc
   
9. dd

复制代码

done_and_todo

回复 7# yestreenstars


    大神不好意思，还有一种情况好像还有点问题，你看下：
document.write("<font id=\"a\" onclick=\"click_here();\">"+ee+"</font>");

yestreenstars

回复 9# done_and_todo

稍微改一下就好了，还有其他情况吗？

1. perl -ne '1 while(/document.write\((?:"[^+]+"\+)?([^+)]+)(?:\+"[^"]+")?\)(?{print "$1\n"})/g)'

复制代码