Man pages sections > man3 > Catmandu::Fix::Bind::mab_each

Catmandu::Fix::Bind::mab_each - a binder that loops over MAB2 fields

Catmandu::Fix::Bind::mab_each(3pm) User Contributed Perl Documentation Catmandu::Fix::Bind::mab_each(3pm)

NAME

Catmandu::Fix::Bind::mab_each - a binder that loops over MAB2 fields

SYNOPSIS

    # Only add field 331 to the title when field 412 matches 'Heise'
    do mab_each()
        if mab_match("412","Heise")
            mab_map("331",title)
        end
    end
    # Delete all the 700 subject fields
    do mab_each()
        if mab_match("700",".*")
            reject()
        end
    end

DESCRIPTION

The mab_each binder will iterate over each individual MAB2 field and execute the fixes only in context over each individual field.
If a MAB2 record contains:
    705    $a775.05$c775
    705    $a702.08$c702
then the fix
    do mab_each()
        mab_map("705a",subject.$append)
    end
will have the same effect as
    mab_map("705a",subject.$append)
because "mab_map" by default loops over all repeated MAB2 fields. But the "mab_each" bind has the advantage to process fields in context. E.g. to only map fields where the subfield $c doesn't contain '702' you can write:
    do mab_each()
        unless mab_match("705","702")
            mab_map("705",subject.$append)
        end
    end

SEE ALSO

Catmandu::Fix::Bind

AUTHOR

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.
2017-10-27 perl v5.26.1