Adding example how to remove non-numeric fields #84

LibreCat · Jun 21, 2018 · 537d5ab · 537d5ab
1 parent 77d75f6
commit 537d5ab
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/lib/Catmandu/MARC/Tutorial.pod b/lib/Catmandu/MARC/Tutorial.pod
@@ -451,6 +451,17 @@ We will use the L<Catmandu::Fix::Bind::marc_each> bind with a loop variable:
        end
     end
 
+=head2 Remove all non-numeric fields from the MARC record
+
+    # For each marc field...
+    do marc_each(var:this)
+       # If we have a non-numeric fields
+       unless all_match(this.tag,"\d{3}")
+          # Remove this tag
+          marc_remove(***)
+       end
+    end
+
 =head1 WRITING
 
 =head2 Convert a MARC record into a MARC record (do nothing)