linux 反斜杠 \ 续航 ，怎么查找整行文件？

tonkie

求高手帮助， linux 反斜杠 \ 续航 ，怎么查找以Subckt为关键字整行输出？

比如：


abcd dkfaksf kdskalfkl

Subckt   Axxx BXX CXX dxxx Hxxxx \
st1_d_vdd<2\> st1_cxx_vdd<1\> \
st1_cxx_vdd<0\>


Subckt   abc ddd ccc dxxx Hxxxx \
st1_cxx_ved<2\> st1_cxx_ved<1\> \
st1_cxx_ved<0\>



dedfkldl   dkfak


Subckt   kdk sdkf klds kdk Hxxxx \
st1_H_vdd<2\> st1_H_vdd<1\> \
st1_H_vdd<0\>

tonkie

补充下，是 反斜杠 \ 续行

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. local $/ = '';
   
6. while (<DATA>){
   
7.         print if (s/(?<=>|\\)\n//g);
   
8. }
   
9. 
   
10. __DATA__
    
11. abcd dkfaksf kdskalfkl
    
12. 
    
13. 
    
14. Subckt   Axxx BXX CXX dxxx Hxxxx \
    
15. st1_d_vdd<2\> st1_cxx_vdd<1\> \
    
16. st1_cxx_vdd<0\>
    
17. 
    
18. 
    
19. 
    
20. 
    
21. Subckt   abc ddd ccc dxxx Hxxxx \
    
22. st1_cxx_ved<2\> st1_cxx_ved<1\> \
    
23. st1_cxx_ved<0\>
    
24. 
    
25. 
    
26. 
    
27. 
    
28. 
    
29. 
    
30. dedfkldl   dkfak
    
31. 
    
32. 
    
33. 
    
34. 
    
35. Subckt   kdk sdkf klds kdk Hxxxx \
    
36. st1_H_vdd<2\> st1_H_vdd<1\> \
    
37. st1_H_vdd<0\>

复制代码

sunzhiguolu

1. perl -ne 'if(/\ASubckt/.../>\Z/){s/\\\n//;print}' f

复制代码

tonkie

回复 4# sunzhiguolu

谢谢！
我用 perl -pe 's/\\\n/ /'  filename解决了。