在每个Unix机器上的任何shell中使用任何awk：

$ awk -v RS= -v ORS='\n\n' '!/#file$/' file
00:00
-Paragraph one. Can be multiple
lines. Paragraph one. Don't delete
this paragraph. #No

我将按照以下方式利用GNU AWK完成此任务，让file.txt内容

00:00
-Paragraph one. Can be multiple
lines. Paragraph one. Don't delete
this paragraph. #No

19:30
-Paragraph two.
-Can be multiple lines.
-Delete this paragraph. #file

13.30
-Paragraph three. Delete this. #file

那么

awk 'BEGIN{RS=""}!/#file/' file.txt

给出输出

00:00
-Paragraph one. Can be multiple
lines. Paragraph one. Don't delete
this paragraph. #No

说明：我将RS（行分隔符）设置为空字符串，这会触发段落模式，因此行被一个或多个空行分隔，然后我选择不（!）包含#file的行。如果要保留多个项目，则它们之间将没有空行，如果需要，请使用RS=ORS="\n\n"替换RS=""。

• （在GNU Awk 5.0.1中测试）*

这里有一个替代方案。不是100%清楚第一段的要求是什么，所以我无条件地打印了它。

#!/usr/bin/perl

use warnings;
use strict;

# set paragraph mode
local $/ = "";

# always print first paragraph
print scalar <DATA> ;

while (<DATA>)
{
    print 
        unless /^\d\d:\d\d.*#file\s*$/s;
}

__DATA__
01:01
keep this text even though it has #file

another paragraph with no data

01:00
delete this #file

07:057
delete this as well #file

keep this paragraph

02:33
keep me

运行将产生以下输出

01:01
keep this text even though it has #file

another paragraph with no data

keep this

02:33
keep me

这里有一个Perl的解决方案，因为你还没有向我们展示你尝试过什么，所以我不打算解释它是如何工作的，但是它是用Unix filter编写的。

#!/usr/bin/perl

use strict;
use warnings;

my $buffer;

while (<>) {
  if (/^\d\d:\d\d\s*$/) {
    end_of_para($buffer);

    $buffer = $_;
  } else {
    $buffer .= $_
  }
}

end_of_para($buffer);

sub end_of_para {
  my ($para) = @_;

  if ($para and $para !~ /#file\s*\z/) {
    print $para;
  }
}

**更新：**您已经更改了示例输入文件。这使事情变得简单得多。

#!/usr/bin/perl

use strict;
use warnings;

local $/ = '';

while (<>) {
  print unless /#file\s*\z/;
}

这可能对您有用（GNU sed）：

sed -En '/^[0-9]{2}:[0-9]{2}/{:a;$!{N;/\n$/!ba};/#file\n?$/!p}' file

打开扩展正则表达式并关闭隐式打印。
将以HH:MM开头、以空行或文件结尾的行收集起来。如果最后一个字符串不是#file，则打印结果。
重复。