Next Lightweight Databases 68

Deferred Writing

        my $f_obj = tied(@FILE);
        $f_obj->defer;
        for (@FILE) {
          s/^/>> /;
        }
        $f_obj->flush;
         tie @FILE, 'Tie::File', $myfile, dw_size => 500000;


Next Copyright © 2003 M. J. Dominus