The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

File::BufferedInput - Large and giant text file performance buffered reader.

SYNOPSIS

        use File::BufferedInput;

        # create new object with default options, buffer size 20MB and ANSI text file
        # file argument can be file name or file handle
        my $fileobj = File::BufferedInput->new(file=>$filename);
        
        # or create new object with custom options, set buffer size 50MB and UTF-8 text file
        my $fileobj = File::BufferedInput->new(file=>$filename, buffer=>50_000_000, utf8=>1);

        # or create new object then set the file name/handle
        my $fileobj = File::BufferedInput->new();
        $fileobj->file($filename_or_handle);

        # now loop through all the text file lines straight forward
        
        my $counter = 0;
        # loop through the file lines sequentially
        while (!$fileobj->eof()) {
                 $line=$fileobj->line();
                $counter++;
                # print "$counter)- $line\n";
        }

        # start again from the begaining of the file
        #$fileobj->rewind()

        $fileobj->close(); # close the file and frees the memory used for the block
        print "$counter lines found\n";
        
        

DESCRIPTION

This module solves the problem with reading large and huge text files in Perl. It is designed to read only block by block as needed. It does not load the whole file into memory, it only reads one block at a time and once the last sequential line reached, it reads the next block from the file and frees the previous block from memory, so at all times only one block of the file is kept in menory.

For example if you are reading a 2GB file, once you start reading lines from the file, the module reads the first block from the file on disk, while you loop through the lines, when you reach the line at the end of the read block, the module delete this block from memory and read the next block from the file on disk and parses it to lines and so on.

SEE ALSO

AUTHOR

Ahmed Amin Elsheshtawy, <support@mewsoft.com> Website: http://www.mewsoft.com

COPYRIGHT AND LICENSE

Copyright (C) 2014 by Ahmed Amin Elsheshtawy support@mewsoft.com http://www.mewsoft.com

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.