From a996a5cbee56c0fd711cf7f1b081874a4b6f9e27 Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Thu, 14 Aug 2008 16:27:44 +0000
Subject: [PATCH] little baby script to turn renumbered marcxml into one-record-per-line format

---
 make1per |   19 +++++++++++++++++++
 1 files changed, 19 insertions(+), 0 deletions(-)
 create mode 100644 make1per

diff --git a/make1per b/make1per
new file mode 100644
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
-- 
1.7.2.5