PERL读取文本内容

zhangfenyun

  有一个文本是这样的：
M48
CP 11.0
DFGDG
。。。
。。。
DFDF


T01C1.0
T02C2.0
%
DFDKLFJDLK
MFKLDJFKLD
。。。
。。
。。。
M30

我想把以字母T开始的，余下所有内容都放到一个函数$abc里面 ？

jason680

回复 1# zhangfenyun

/^T/
   

drakness

这个意思？

1. abc=$(perl -ne 'print if !/^T/' a)

复制代码

1. echo -e "$abc\n"
   
2. M48
   
3. CP 11.0
   
4. DFGDG
   
5. 。。。
   
6. 。。。
   
7. DFDF
   
8. 
   
9. 
   
10. %
    
11. DFDKLFJDLK
    
12. MFKLDJFKLD
    
13. 。。。
    
14. 。。
    
15. 。。。
    
16. M30

复制代码