make1per

   1 #!/usr/bin/perl
   2
   3 my $infile = $ARGV[0] || 'incoming.renumbered.mrc.xml';
   4 my $outfile = $ARGV[1] || $infile . '.1per.xml';
   5
   6 open IN, '<', $infile;
   7 open OUT,'>', $outfile;
   8
   9 $seenrec  = 0;
  10 $stripcol = 0;
  11
  12 while (<IN>) {
  13   unless ($seenrec)
  14     { $seenrec = 1 if /^<record/ }
  15   print OUT unless $seenrec;
  16   if (m|^</collection|) {
  17     while (<IN>)
  18       { last if /^\n$/ }
  19   }
  20   s/\n// unless m|^</record|;
  21   print OUT;
  22 }