DOKK / manpages / debian 11 / libcatmandu-mab2-perl / Catmandu::Fix::mab_map.3pm.en
Catmandu::Fix::mab_map(3pm) User Contributed Perl Documentation Catmandu::Fix::mab_map(3pm)

Catmandu::Fix::mab_map - copy mab values of one field to a new field

    # Copy all 245 subfields into the my.title hash
    mab_map('245','my.title');
    # Copy the 245-$a$b$c subfields into the my.title hash
    mab_map('245abc','my.title');
    # Copy the 100 subfields into the my.authors array
    mab_map('100','my.authors.$append');
    
    # Add the 710 subfields into the my.authors array
    mab_map('710','my.authors.$append');
    # Copy the 600-$x subfields into the my.subjects array while packing each into a genre.text hash
    mab_map('600x','my.subjects.$append', -in => 'genre.text');
    # Copy the 008 characters 35-35 into the my.language hash
    mab_map('008_/35-35','my.language');
    # Copy all the 600 fields into a my.stringy hash joining them by '; '
    mab_map('600','my.stringy', -join => '; ');
    # When 024 field exists create the my.has024 hash with value 'found'
    mab_map('024','my.has024', -value => 'found');
    # Do the same examples now with the fields in 'record2'
    mab_map('245','my.title', -record => 'record2');

Johann Rolschewski <jorol@cpan.org>

This software is copyright (c) 2013 by Johann Rolschewski.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

2020-04-02 perl v5.30.0