如何將某個特定點的大文件分割成更小的文件？

Question

我有困難的編寫代碼來拆分是這樣的一個大的文本文件：

#Article: 
ABC 
DEF 
#Article: 
GHJ 
KDJD 

我想將拆分開始#Article塊的文件並保存在文本文件中每個塊命名輸出1， output2，等等。

因此，舉例來說：

#Article: 
ABC 
DEF 

將被保存在名爲output1.txt的文本文件。

Answer 1

每當遇到標題時，只需重新打開輸出句柄。作爲一襯墊：

perl -pe' 
    if ($_ eq "#Article:\n") { 
     open(STDOUT, ">", sprintf("output%d.txt", ++$count)) 
     or die $!; 
    } 
' 

用法：

perl -pe'...' input.txt  # Read from file(s) provided as arguments. 
perl -pe'...' <input.txt # Read from STDIN.