Help for this page

Select Code to Download


  1. or download this
    no warnings;
use File::Map ':all';
...
# rotate in place
map_handle(my $mmap, $fh, '+<');
substr($mmap, 0, 0, substr($mmap, $off));
  2. or download this
    no strict;
no warnings;
use File::Map ':all';
...
# rotate in place
map_file my $mmap, $fnam, '+<';
substr($mmap, 0, 0, substr($mmap, $off));