Select Code to Download

C:\test>535539
Test data: 1000 records
...
unpack 1.77/s     --   -33%   -99%
substr 2.65/s    50%     --   -99%
lrefs   196/s 10974%  7289%     --

my $buffer = chr(0) x 4800;

...
while( read( $fhTest, $buffer, 4800, 0 ) == 4800 ) {
    ...
}

C:\test>535539
Test data: 1000 records
...
unpack 1.48/s     --   -17%   -40%
substr 1.78/s    20%     --   -28%
lrefs  2.46/s    66%    38%     --

#! perl -slw
use strict;
...
        }
    ],
};