| Catmandu::Fix::Bind::marc_each(3pm) | User Contributed Perl Documentation | Catmandu::Fix::Bind::marc_each(3pm) |
Catmandu::Fix::Bind::marc_each - a binder that loops over MARC fields
# Only add the 720 field to the authors when the $e subfield contains a 'promotor'
do marc_each()
if marc_match("720e","promotor")
marc_map("720ab",authors.$append)
end
end
# Delete all the 500 fields
do marc_each()
if marc_has("500")
reject()
end
end
The marc_each binder will iterate over each individual MARC field and execute the fixes on each individual field.
When a MARC record contains:
500 $aTest
500 $aTest2$eskip
500 $aTest3
then the Fix bellow will copy all 500 fields to note field, except for 500 fields with a subfield $e equal to "skip".
do marc_each()
unless marc_match("500e",skip)
marc_map("500",note.$append)
end
end
The result will be:
note: [Test,Test3]
Optional loop variable which contains a HASH containing MARC field information with the following fields:
tag - The names of the MARC field
ind1 - The value of the first indicator
ind2 - The value of the second indicator
subfields - An array of subfield items. Each subfield item is a
hash of the subfield code and subfield value
Given the MARC field:
500[1, ] $aTest$bRest
the loop variable will contain:
tag: 500
ind1: 1
ind2: ' '
subfields:
- a : Test
- b : Rest
The loop variables can be used to have extra control over the processing of the MARC fields.
do marc_each(var:this)
# Set the indicator1 of all MARC 500 field to the value "3"
if all_match(this.tag,500)
set_field(tag.ind1,3)
# Store the result in the MARC file
marc_remove(500)
marc_paste(this)
end
end
Catmandu::Fix::Bind
| 2022-09-27 | perl v5.34.0 |