查找多行塊

Question

我試圖從文件底部的文件test.out中找到BLOB_SMUGHO的出現。如果找到，返回的數據塊，我很感興趣的字符串之間的「2014.10」

我得到初始化值$ CC的模式匹配（M //）使用在

這個腳本有什麼問題？

#!/usr/bin/perl 
use strict; 
use warnings; 
use POSIX qw(strftime); 
use File::ReadBackwards; 

my $find = "BLOB_SMUGHO"; 
my $chnkdelim = "\n[" . strftime "%Y.%m", localtime; 

my $fh = File::ReadBackwards->new('test.out', $chnkdelim, 0) or die "err-file: $!\n"; 

while (defined(my $line = $fh->readline)) { 
    if(my $cc =~ /$find/){ 
     print $cc; 
    } 
} 

close($fh); 

在情況下，如果這會有所幫助，這裏是test.out

2014.10.31 lots and 
lots of 
gibbrish 
2014.10.31 which I'm not 
interested 
in. It 
also 
2014.10.31 spans 
across thousands of 
lines and somewhere in the middle there will be 
2014.10.31 
this precious word BLOB_SMUGHO and 
2014.10.31 certain other 
2014.10.31 words 
2014.10.31 
this precious word BLOB_SMUGHO and 
2014.10.31 
this precious word BLOB_SMUGHO and 
which 
I 
will 
be 
interested 
in. 

樣本含量和我期待捕捉到的文本塊的所有多次出現從底部文件。

2014.10.31 
this precious word BLOB_SMUGHO and 

Answer 1

首先，你必須正確地寫入您的比賽因誤會=~操作：

if(my $cc =~ /$find/){ # incorrect, like saying if(undef matches something) 

如果你想匹配的是在$line對/.../之間的模式然後執行：

if($line =~ /$find/) { 

匹配運算符期望左側和右側的值。你使用它就像一個賦值運算符。

如果您需要捕獲的比賽（ES）爲變量或列表，然後將其添加到一個等號的左邊：

if(my ($cc) = $line =~ /$find/) {  <-- wrap $cc in() for list context 

順便說一句，我想你最好寫：

if($line =~ /$find/) { 
    print $line; 

，或者如果你要打印你只匹配什麼

print $0; 

既然你沒有捕捉一個子串，它在這裏並不重要。

現在，關於如何匹配兩種模式之間的所有內容，如果您不逐行匹配，但使用/ s修飾符匹配換行符，則任務更容易。

在Perl中，您可以將記錄分隔符設置爲undef並使用slurp模式。

local $/ = undef; 
my $s = <>;  # read all lines into $s 

我們掃描US $的模式

while($s =~ /(START.*?STOP)/gsm) { print "$1\n"; } # print the pattern inclusive of START and STOP 

或開始之間以捕捉和STOP

while($s =~ /START(.*?)STOP/gsm) { print "$1\n"; } # print the pattern between of START and STOP 

你的情況

於是開始模式是2014.10.31和停止BLOB_SMUGHO

while($s =~ /(2014\.10\.31.*?BLOB_SMUGHO)/gsm) { 
    print "$1\n"; 
} 

注意：Perl中的正則表達式修飾符出現在最後的/之後，因此如果您看到我使用/gsm進行多行匹配換行符和全局匹配（通過記住最後一個位置來獲取循環中的多個匹配項）。