擅长:python、mysql、java
<p>从STDIN读取,输出到STDOUT,并执行错误检查:</p>
<pre><code>#!/usr/bin/perl
use strict;
use warnings;
use constant BLOCK_SIZE => 20;
binmode STDIN;
while (1) {
my $rv = read(STDIN, my $buf, BLOCK_SIZE);
die("Error: $!\n") if !defined($rv);
last if !$rv;
die("Error: Insufficient data\n") if $rv != BLOCK_SIZE;
print(join("\t", unpack('a3 a7 a10', $buf)), "\n");
}
</code></pre>
<p>但我很肯定你会发现这比一次读更多的书要慢,所以我用以下方法:</p>
^{pr2}$