Perl「= + \ n」as $/separator

Question

對不起，我是個初學者，所以無法理清這個問題。

我使用的文件塊的數據被連續的=符號不同長度的行分割，其次是\n。我想使用$/ = "=+\n";作爲單獨的記錄讀取這些塊，但它不檢測===分隔符。

所以我的代碼是：

$ cat prog1 
#!/usr/bin/perl 

use v5.22; 
use strict; 
use warnings; 

$/ = "=+\n"; 
$\="+++\n"; 

while (<>){ 
    chomp; 
    print; 
} 

我的數據：

$ cat data1 
line1 
line2 
=== 
line4 
line5 

我的輸出：

$ ./prog1 data1 
line1 
line2 
=== 
line4 
line5 
+++ 

Answer 1

$/不支持正則表達式。您需要使用===\n。

儘管你可以使用正則表達式來僞造chomp。

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


$/ = "=\n"; 
$\="+++\n"; 

while (<>){ 
    s/^=+\n\z//gm; 
    print; 
} 

參見：perlvar：

$ /的值是一個字符串，而不是一個正則表達式。

Answer 2

如果該文件是足夠短，它加載到內存中，並分割你想要的任何結束記錄指示：

local $/; 
my @lines = split /=+\n|\++\n/, <>; 
foreach my $line (@lines) { ... } 

如果是重要的東西記錄分隔符是（比方說，如果您需要區分與===\n最終從與+++\n結束記錄）的記錄，拍攝記錄分隔

local $/; 
my @lines = split /(=+\n|\++\n)/, <>; 
while (my $line = shift @lines) { 
    my $record_separator = shift @lines; 
    ... 
}