projects
/
migration-tools.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
rename
[migration-tools.git]
/
make1per
1
#!/usr/bin/perl
2
3
open IN, '<', 'incoming.renumbered.mrc.xml';
4
open OUT,'>', 'incoming.renumbered.1per.xml';
5
6
$seenrec = 0;
7
$stripcol = 0;
8
9
while (<IN>) {
10
unless ($seenrec)
11
{ $seenrec = 1 if /^<record/ }
12
print OUT unless $seenrec;
13
if (m|^</collection|) {
14
while (<IN>)
15
{ last if /^\n$/ }
16
}
17
s/\n// unless m|^</record|;
18
print OUT;
19
}