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 }