Catman...ab_each(3pm)

💖 Catman...ab_each(3pm) — User Contributed Perl Documentation 💖

okay bestie, sit down, hydrate, and let me tell you about Catmandu::Fix::Bind::mab_each — it's a binder that loops over MAB2 fields, and honestly? it's giving main character energy in the MAB2 fix pipeline. ✨

---

🌸 NAME 🌸

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

---

✨ SYNOPSIS ✨

like, imagine you only want to add field 331 to the title when field 412 matches 'Heise'. you'd write:

# 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

and when you wanna delete all the 700 subject fields, no cap:

# Delete all the 700 subject fields
do mab_each()
    if mab_match("700",".*")
        reject()
    end
end

---

💅 DESCRIPTION 💅

so the mab_each binder will iterate over each individual MAB2 field and execute the fixes only in context over each individual field. one field at a time, one vibe at a time, periodt. 👑

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 anyway. 🙈 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

the way that context thing literally changes everything — mab_map alone could never, it's just not that girl for conditional per-field work. 🎀

---

🌈 SEE ALSO 🌈

• Catmandu::Fix::Bind

---

👑 AUTHOR 👑

Johann Rolschewski <jorol@cpan.org> 💜

---

🎀 COPYRIGHT AND LICENSE 🎀

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.

---

and that's the whole page, bestie — signed off on perl v5.36.0, dated 2022-12-04, from the Catman...ab_each(3pm) page itself. slay, go loop over some MAB2 fields responsibly. 💖✨🦋