Scroll to navigation

Catmandu::Fix::Inline::marc_map(3pm) User Contributed Perl Documentation Catmandu::Fix::Inline::marc_map(3pm)

NAME

Catmandu::Fix::Inline::marc_map - A marc_map-er for Perl scripts (DEPRECATED)

SYNOPSIS

 use Catmandu::Fix::Inline::marc_map qw(:all);
 my $title   = marc_map($data,'245a');
 my @authors = marc_map($data,'100ab');
 # Get all 245 in an array
 @arr = marc_map($data,'245');
 # Or as a string
 $str = marc_map($data,'245');
 # str joined by a semi-colon
 $f245 = marc_map($data, '245', -join , ';');
 # Get the 245-$a$b$c subfields ordered as given in the record
 $str = marc_map($data,'245abc');
 # Get the 245-$c$b$a subfields orders as given in the mapping
 $str = marc_map($data,'245cba', -pluck => 1);
 # Get the 008 characters 35-35
 $str = marc_map($data,'008_/35-35');
 # Get all 100 subfields except the digits
 $str = marc_map($data,'100^0123456789');
 # If the 260c exist set the output to 'OK' (else undef)
 $ok  = marc_map($data,'260c',-value => 'OK');
 # The $data should be a Catmandu-style MARC hash
 { record => [
    ['field', 'ind1' , 'ind2' , 'subfieldcode or underscore' , 'data' , 'subfield' , 'data' , ...] ,
     ...
 ]};
 # Example
 $data = { record => [
    ['001' , ' ', ' ' , '_' , 'myrecord-001' ] ,
    ['020' , ' ', ' ' , 'a' , '978-1449303587' ] ,
    ['245' , ' ', ' ' , 'a' , 'Learning Per' , 'c', '/ by Randal L. Schwartz'],
 ]};

DEPRECATED

This module is deprecated. Use the inline functionality of Catmandu::Fix::marc_map instead.

SEE ALSO

Catmandu::Fix::Inline::marc_map

2021-11-09 perl v5.32.1