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

MARC::Indexer - index MARC records

SYNOPSIS

$indexer = MARC::Indexer->new(
    'index_points' => [
        { 'name' => 'ctrlnum',
          'tag' => '001' },
        { 'name' => 'title',
          'tag' => '245',
          'extract' => 'subfields:abcdnp',
          'normalize' => [qw(text nfd uc)],
        },
        { 'name' => 'subjtopic',
          'tag' => '650',
          'repeatable' => 1,
          ...
        },
        ...
    ],
);
$idx = $indexer->index($marc);
$idx_title = $idx->{'title'};