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 
####