{
    "mode": "perldoc",
    "parameter": "MARC::File::MicroLIF",
    "section": "",
    "url": "https://www.chedong.com/phpMan.php/perldoc/MARC%3A%3AFile%3A%3AMicroLIF/json",
    "generated": "2026-10-09T03:52:12Z",
    "synopsis": "use MARC::File::MicroLIF;\nmy $file = MARC::File::MicroLIF->in( $filename );\nwhile ( my $marc = $file->next() ) {\n# Do something\n}\n$file->close();\nundef $file;",
    "sections": {
        "NAME": {
            "content": "MARC::File::MicroLIF - MicroLIF-specific file handling\n",
            "subsections": []
        },
        "SYNOPSIS": {
            "content": "use MARC::File::MicroLIF;\n\nmy $file = MARC::File::MicroLIF->in( $filename );\n\nwhile ( my $marc = $file->next() ) {\n# Do something\n}\n$file->close();\nundef $file;\n",
            "subsections": []
        },
        "EXPORT": {
            "content": "None.\n\nThe buffer must be large enough to handle any valid record because we don't check for cases like\na CR/LF pair or an end-of-record/CR/LF trio being only partially in the buffer.\n\nThe max valid record is the max MARC record size (99999) plus one or two characters per tag (CR,\nLF, or CR/LF). It's hard to say what the max number of tags is, so here we use 6000. (6000 tags\ncan be squeezed into a MARC record only if every tag has only one subfield containing a maximum\nof one character, or if data from multiple tags overlaps in the MARC record body. We're pretty\nsafe.)\n",
            "subsections": []
        },
        "METHODS": {
            "content": "in()\nOpens a MicroLIF file for reading.\n\nGets the next chunk of data. If $wantline is true then you get the next chunk ending with any\ncombination of \\r and \\n of any length. If it is false or not passed then you get the next chunk\nending with \\x60 followed by any combination of \\r and \\n of any length.\n\nAll trailing \\r and \\n are stripped.\n\nheader()\nIf the MicroLIF file has a file header then the header is returned. If the file has no header or\nthe file has not yet been opened then \"undef\" is returned.\n\ndecode()\nDecodes a MicroLIF record and returns a USMARC record.\n\nCan be called in one of three different ways:\n\n$object->decode( $lif )\nMARC::File::MicroLIF->decode( $lif )\nMARC::File::MicroLIF::decode( $lif )\n",
            "subsections": []
        },
        "TODO": {
            "content": "",
            "subsections": []
        },
        "RELATED MODULES": {
            "content": "MARC::File\n",
            "subsections": []
        },
        "LICENSE": {
            "content": "This code may be distributed under the same terms as Perl itself.\n\nPlease note that these modules are not products of or supported by the employers of the various\ncontributors to the code.\n",
            "subsections": []
        },
        "AUTHOR": {
            "content": "Andy Lester, \"<andy@petdance.com>\"\n",
            "subsections": []
        }
    },
    "summary": "MARC::File::MicroLIF - MicroLIF-specific file handling",
    "flags": [],
    "examples": [],
    "see_also": []
}