little baby script to turn renumbered marcxml into one-record-per-line format

diff --git a/make1per b/make1per
new file mode 100644 (file)
index 0000000..6668d18
--- /dev/null
+++ b/make1per
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+open IN, '<', 'incoming.renumbered.mrc.xml';
+open OUT,'>', 'incoming.renumbered.1per.xml';
+
+$seenrec  = 0;
+$stripcol = 0;
+
+while (<IN>) {
+  unless ($seenrec)
+    { $seenrec = 1 if /^<record/ }
+  print OUT unless $seenrec;
+  if (m|^</collection|) {
+    while (<IN>) {
+      { last if /^\n$/ }
+  }
+  s/\n// unless m|^</record|;
+  print OUT;
+}
\ No newline at end of file