擅长:python、mysql、java
<p>使用Perl,最简单的解决方案是将整个输入加载到内存中。你知道吗</p>
<pre><code>perl -0777pe's/abcd\nvwxyz\n//g'
</code></pre>
<p>如果一次读取一行,这些类型问题的一般解决方案是保留过去行的缓冲区。你知道吗</p>
<pre><code>if (!eof()) {
my @buf = scalar(<>);
while (<>) {
if ($buf[-1] =~ /^abcd$/ && /^vwxyz$/) {
@buf = ();
} else {
print(shift(@buf));
push(@buf, $_);
}
}
print @buf;
}
</code></pre>