擅长:python、mysql、java
<p>你没有显示任何代码,所以我想你需要帮助来理解算法。其实很简单:</p>
<ol>
<li>虽然你还没有达到STDIN的EOF,
<ol>
<li>从STDIN读取2112字节</li>
<li>从读取的字节数中,删除从1536开始的64个字节。在</li>
<li>将剩余的2048字节打印到STDOUT。在</li>
</ol></li>
</ol>
<p>在Perl中</p>
<pre><code>binmode(STDIN);
binmode(STDOUT);
while (1) {
my $rv = read(STDIN, my $rec, 2112);
die $! if !defined($rv);
last if !$rv;
substr($rec, 1536, 64, '');
print($rec)
or die $!;
}
</code></pre>