MARC::File::MicroLIF - MicroLIF-specific file handling
use MARC::File::MicroLIF;
my $file = MARC::File::MicroLIF->in( $filename );
while ( my $marc = $file->next() ) {
# Do something
}
$file->close();
undef $file;
None.
Gets the next chunk of data. If $want_line is true then you get
the next chunk ending with any combination of \r and \n of any length.
If it is false or not passed then you get the next chunk ending with
\x60 followed by any combination of \r and \n of any length.
All trailing \r and \n are stripped.
header()If the MicroLIF file has a file header then the header is returned.
If the file has no header or the file has not yet been opened then
undef is returned.
This code may be distributed under the same terms as Perl itself.
Please note that these modules are not products of or supported by the employers of the various contributors to the code.
Andy Lester, <andy@petdance.com>