projects
/
migration-tools.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(parent:
9c1a4f5
)
irrelevant
author
Shawn Boyette
<sboyette@esilibrary.com>
Thu, 18 Dec 2008 18:58:57 +0000 (18:58 +0000)
committer
Shawn Boyette
<sboyette@esilibrary.com>
Thu, 18 Dec 2008 18:58:57 +0000 (18:58 +0000)
make1per
[deleted file]
patch
|
blob
|
history
diff --git
a/make1per
b/make1per
deleted file mode 100755
(executable)
index
80c25c3
..0000000
--- a/
make1per
+++ /dev/null
@@
-1,22
+0,0 @@
-#!/usr/bin/perl
-
-my $infile = $ARGV[0] || 'incoming.renumbered.mrc.xml';
-my $outfile = $ARGV[1] || $infile . '.1per.xml';
-
-open IN, '<', $infile;
-open OUT,'>', $outfile;
-
-$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;
-}