Perl腳本來處理文本文件

Question

，我有以下格式的文件非常：

Status_ArsFlag = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580 


Status_Identifier = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580 


Status_Node = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580 

在哪裏設置的每個數據非常具有「STATUS_」行開始，以「RawCaptureTimeStamp」結束由2個新行分開。

現在的問題是在不理想的情況下，如果文件可以類似於下面：

1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580 


Status_ArsFlag = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580 


Status_ArsFlag = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 

所看到的第一和最後一個數據集以上是無效的。我需要一個邏輯，我可以從原始文件中刪除這些不需要的數據集並重新保存。 我在PERL中嘗試了幾件事，但都失敗了。請幫忙。 我正在使用的代碼來讀取文件，並檢查文件是否以狀態開始，如果不讀取，直到達到rawcapturetimestamp。如果它不正確結束

while(my $line = <$cap_1>){ 
    if($. == 1 && $line !~ /^Status/){ #check if first line doesn't begin with status 
      while($line = <$cap_1>){#if not read till the occurence of RawCaptureTimeStamp 
      if($line =~/^RawCaptureTimeStamp/){ 
       $. = $.+1; 
       last; 
      } 
     } 
     $line = <$cap_1>; 
     if (eof()){ #After reading till raw capture timestamp, check for EOF 
      last; 
     } 
    } 
} 

Answer 1

我只想讀第mo段中的文件德（設置$/到""和你的問題不是"\n\n"爲 Jonathan Leffler commented） 和檢查每個段落的一致性

三個換行必須在每個塊的末尾來代替，如PerlIO的在此模式下

他們正常化兩個

它看起來像問題是，數據可以在任一端被截斷，所以我需要十個位數的時間戳，涵蓋了從2001年日期2286

use strict; 
use warnings 'all'; 

local $/ = ''; # Separate reads by one or more blank lines 

while (<>) { 

    next unless /^Status.+\nStatus/ and /^RawCaptureTimeStamp = \d{10}/m; 
    s/\s*\z/\n\n\n/; 

    print; 
} 

輸出（使用您錯誤的示例數據集）

Status_ArsFlag = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580 

Answer 2

#! /usr/bin/perl 
use warnings; 
use strict; 

$_ = q(); 
$_ = <> until /^Status_/; # Skip the invalid beginning; 

my $block = $_; 

while (<>) { 
    if (/^RawCaptureTimeStamp/) { # End of block: print it, start gathering a new one. 
     print $block, $_; 
     $block = q(); 

    } else {      # Inside of a block. 
     $block .= $_; 
    } 
} 

最後一個塊將不被打印。

Answer 3

這工作，我相信：

#!/usr/bin/env perl 
use strict; 
use warnings; 

$/ = "\n\n"; 

while (<>) 
{ 
    s/^\s+//; 
    s/\s+$//; 
    print "\n[[", $_, "]]\n" 
     if (m/^Status_\w+ .*Status_\w+ /ms && m/^RawCaptureTimeStamp /m); 
} 

設置$/讀取高達雙新行（或EOF），有效地閱讀在一個時間段落。 if條件查找兩個Status_元素和RawCaptureTimeStamp;您可以根據需要細化這些條件，使其更加嚴格。 s修飾符允許.*匹配嵌入的換行符; m修飾符用於多行模式。例如，這可以用RawCaptureTimeStamp跟着其他行。

樣本數據，從問題複製：

Status_ArsFlag = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580 


Status_Identifier = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580 


Status_Node = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580 


1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580 


Status_ArsFlag = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580 


Status_ArsFlag = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 

輸出示例：

[[Status_ArsFlag = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580]] 

[[Status_Identifier = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580]] 

[[Status_Node = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580]] 

[[Status_ArsFlag = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580]] 

Answer 4

使用Perl段落模式，如所描述here

#!/usr/bin/perl -w 

use strict; 

local $/ = ""; 

while (my $para = <DATA>) { 
    print $para if ($para =~ /^Status_.*RawCaptureTimeStamp/s); 
} 

__DATA__ 
1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580 


Status_ArsFlag = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi" 
2 = "ASB" 
3 = "456" 
RawCaptureTimeStamp = 1450091580 


Status_ArsFlag = "" 
Status_NodeAlias = "" 
OID1 = ".1.3.6.1.4.1.11.2.17.19.2.2.1" 
1 = "NNMi"