#!/usr/bin/perl
-open IN, '<', 'incoming.renumbered.mrc.xml';
-open OUT,'>', 'incoming.renumbered.1per.xml';
+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;
{ $seenrec = 1 if /^<record/ }
print OUT unless $seenrec;
if (m|^</collection|) {
- while (<IN>) {
+ while (<IN>)
{ last if /^\n$/ }
}
s/\n// unless m|^</record|;
print OUT;
-}
\ No newline at end of file
+}