Next Lightweight Databases 70

Miscellaneous Features

        use Fcntl 'O_RDONLY';
        tie @FILE, 'Tie::File', $myfile, mode => O_RDONLY;
        tie @FILE, 'Tie::File', $myfile, recsep => ";;";
        tie @FILE, 'Tie::File', \*STDIN, mode => O_RDONLY;
        use Fcntl ':flock';
        (tied @FILE)->flock(LOCK_EX);


Next Copyright © 2003 M. J. Dominus