Help for this page

Select Code to Download


  1. or download this
    Line-at-a-time, default layers
      100.0 MB in 12.012 sec, 8.3 MB/sec
    ...
    
    Slurp into scalar with sysopen/sysread (single read)
      100.0 MB in 0.034 sec, 2976.2 MB/sec
    
  2. or download this
    #!/usr/bin/perl
    use strict;
    ...
        my $secs = $end_time - $start_time;
        return ($secs, $size);
    }