如何在自己的分隔符上分割文件？

Question

我有以下文件：

some data 
some data 1 
some data 1 
hostname = abc 
some data 
some data 1 
some data 1 
some data 
some data 1 
some data 1 
hostname = xyz 
some data 
some data 1 
some data 1 
some data 
some data 1 
some data 1 
hostname = pqr 
some data 
some data 1 
some data 1 
some data 
some data 1 
some data 1 

我如何可以提取使用Perl 2名的主機名行條目之間的界限？

Answer 1

啜食整個事情到一個字符串，$string，做這樣的事情：

$string =~ /hostname = abc\n(.*)hostname = xyz\n/s; 

的abc和xyz主機線之間的線路將在之後$1。

Answer 2

perl -nle'/hostname = abc/../hostname = xyz/&&print' datafile 

Answer 3

split確實夠用，只是給它正確的模式。

use DDS; Dump split /hostname = .*\n/, 'some data 
some data 1 
some data 1 
hostname = abc 
some data 
some data 1 
some data 1 
some data 
some data 1 
some data 1 
hostname = xyz 
some data 
some data 1 
some data 1 
some data 
some data 1 
some data 1 
hostname = pqr 
some data 
some data 1 
some data 1 
some data 
some data 1 
some data 1'; 

輸出

$VAR1 = "some data\nsome data 1\nsome data 1\n"; 
$VAR2 = "some data\nsome data 1\nsome data 1\nsome data\nsome data 1\nsome data 1\n"; 
$VAR3 = "some data\nsome data 1\nsome data 1\nsome data\nsome data 1\nsome data 1\n"; 
$VAR4 = "some data\nsome data 1\nsome data 1\nsome data\nsome data 1\nsome data 1"; 

Answer 4

如何：

#!perl -w 
my @someArray; 

while (<DATA>) { 
    if (/hostname.*/) { 
     print @someArray; 
     @someArray =(); 
    } 
    else { 
     push (@someArray, $_); 
    } 
} 

__DATA__ 
some data 
some data 1 
some data 1 
hostname = abc 
some data 
some data 1 
some data 1 
some data 
some data 1 
some data 1 
hostname = xyz 
some data 
some data 1 
some data 1