BibTeX::Parser3pm

Parses BibTeX files.

    use BibTeX::Parser;
        use IO::File;
    my $fh = IO::File->new("filename");
    # Create parser object ...
    my $parser = BibTeX::Parser->new($fh);
    
    # ... and iterate over entries
    while (my $entry = $parser->next ) {
            if ($entry->parse_ok) {
                    my $type    = $entry->type;
                    my $title   = $entry->field("title");
                    my @authors = $entry->author;
                    # or:
                    my @editors = $entry->editor;
                    
                    foreach my $author (@authors) {
                            print $author->first . " "
                                . $author->von . " "
                                . $author->last . ", "
                                . $author->jr;
                    }
            } else {
                    warn "Error parsing file: " . $entry->error;
            }
    }