如何使用perl腳本或命令行刪除與特定模式匹配的文件中的幾行？

Question

輸入文件：

### 
Hi 
I am Jack 
I live in London 
#### 
I am James 
I live in Germany 
#### 

在這裏，我想搜索「傑克」，並刪除散列之間的一切。

預期輸出：

### 
I am James 
I live in Germany 
#### 

Answer 1

祕訣是使用$/定義「塊」，你所期待的。

#!/usr/bin/perl 

use strict; 
use warnings; 

local $/ = '###'; 

while (<DATA>) { 
    print unless /Jack/; 
} 

__DATA__ 
### 
Hi 
I am Jack 
I live in London 
#### 
I am James 
I live in Germany 
####