提取特定格式的文本-perl

Question

文件1

--- abcd10 --- 

--- abcd31 --- 

--- abcd32 --- 
MY Addr   info name policy 
--------------------------------------------------------- 
00:0a:91:00:65:93 HQLT DKAHN Default 


--- abcd33 --- 
No info found 

--- abcd34 --- 
No info found 

--- abcd35 --- 

MY Addr   info name policy 
--------------------------------------------------------- 
00-0a-91-00:15:03 HQ-LT-DKAHN Default 
00-0a-91-10:15:03 HQ-LT-DKAHN Default 

在上面的文件我想只提取特定的格式。

--- abcd32 --- 
MY Addr   info name policy 
--------------------------------------------------------- 
00:0a:91:00:65:93 HQLT DKAHN Default 

而且

--- abcd35 --- 
MY Addr   info name policy 
--------------------------------------------------------- 
00-0a-91-00:15:03 HQ-LT-DKAHN Default 
00-0a-91-10:15:03 HQ-LT-DKAHN Default 

代碼：

#!/usr/bin/perl 
use warnings; 
use strict; 
my $file; 
my $start_marker_mqstats = qr{^\-+\s*\w+\s*\-+.* $}x; 
my $end_marker_mqstats = qr{^\s* $}x; 
open($file,"<", "file") || die $!; 
while(<$file>) {  
    if ($_ =~/^\-\-\-\s\w+\s\-\-\-/){ 
     if ($_ =~/^MY\sAddr.*/){  
      next unless my $range = /$start_marker_mqstats/ .. /$end_marker_mqstats/; 
      my $line = $_; 
      print $line if $range !~ /^1$|E/;  
     }  
    } 
} 

Answer 1

您可以使用段落模式（設置$/ = ""）和 「grep的」 爲開頭MY線，使用/m正則表達式修改使換行匹配^。

perl -00 -nlwe"print if /^MY /m" input.txt 

-00設置輸入記錄分隔符$/到""。

或程序文件：

$/ = ""; 

while (<>) { 
    print if /^MY /m; 
} 

在這兩種情況下，輸出是：

--- abcd32 --- 
MY Addr   info name policy 
--------------------------------------------------------- 
00:0a:91:00:65:93 HQLT DKAHN Default 

MY Addr   info name policy 
--------------------------------------------------------- 
00-0a-91-00:15:03 HQ-LT-DKAHN Default 
00-0a-91-10:15:03 HQ-LT-DKAHN Default 

在第二種情況下缺少的標題，是因爲你在你的樣品輸入了一個空行有。我猜這是你的一個複製/粘貼錯誤，而不是你的輸入。