小编Zoe*_*Zoe的帖子

Perl:匹配模式后如何打印下一行?

我想在匹配图案或线后打印特定数据.我有这样一个文件:

#******************************    
List : car  
Design: S  
Date: Sun 10:10  
#******************************

b-black  
g-green
r-red  

Car Type              No.           color  
#-------------------------------------------    
N17              bg099            g  
#-------------------------------------------    
Total 1 car  

#****************************** 
List : car  
Design: L  
Date: Sun 10:20  
#******************************

b-black  
g-green
r-red  

Car Type            No.            color   
#-------------------------------------------    
A57            ft2233            b  
#-------------------------------------------    
Total 1 car  

#******************************    
List : car  
Design: M  
Date: Sun 12:10  
#******************************    

b-black  
g-green
r-red  

Car Type           No.             color  
#-------------------------------------------    
L45            nh669             g   
#-------------------------------------------    
Total 1 car  

#. .    
#. . …
Run Code Online (Sandbox Code Playgroud)

perl pattern-matching

3
推荐指数
1
解决办法
3万
查看次数

标签 统计

pattern-matching ×1

perl ×1