擅长:python、mysql、java
<p>更具可读性的Perl,并能安全地处理多个文件。</p>
<pre><code>#!/usr/bin/env perl
use constant LINES => 2;
my @buffer = ();
while (<>) {
/pattern/ and unshift @buffer, "\n";
push @buffer, $_;
print splice @buffer, 0, -LINES;
}
continue {
if (eof(ARGV)) {
print @buffer;
@buffer = ();
}
}
</code></pre>