sed或awk - 如果找不到表达式，则从文件中删除行

Question

I have a file that contains multiple entries. the entries are seperated by -- I want to remove all lines between this pattern if a certain phrase is not found within. Example:

--
Company
Street 
Zip Code
Country
--

If Country is not found between -- and -- remove the complete block

Thanks in advance :)

Answer 1

你可以这样做：

awk '!/Country/' RS='--\n' ORS='--\n'

Answer 2

Perhaps the following will be helpful:

use strict;
use warnings;

local $/ = '--';
print $/;

while (<>) {
    print if /\bCountry\b/;
}

Usage: perl script.pl dataFile [>outputFile]

Data:

--
Company
Street 
Zip Code
Elephant
--
Company
Street 
Zip Code
Country
--
Company
Street 
Zip Code
Goat
--
Company
Street 
Zip Code
Country
--

Output:

--
Company
Street 
Zip Code
Country
--
Company
Street 
Zip Code
Country
--