Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
my $tmx=time-$tm;
my $r=$lx/$tmx;
print "File $file cached $lx bytes in $tmx seconds @ $r bs\n";

Select or download this

pme@pme-notebook: ~/Develop/workpme@pme-notebook:~/Develop/work$ perlb
+rew use perl-5.8.9

...
int8  8589934592
int16 17179869184
File F2.DAT cached 2147483648 bytes in 17 seconds @ 126322567.529412 b
+s