#!/usr/bin/perl
+require 5.10.0;
use strict;
use warnings;
# automatable subfield maladies
$record[$ptr] =~ s/code=" ">c/code="c">/;
- $record[$ptr] =~ s/code=" ">\$/code="c">$/;
+ $record[$ptr] =~ s/code=" ">\$/code="c">\$/;
}
}
show_trashhelp() if ($c->{trashhelp});
# defaults
- if ($c->{prefix}) {
- $c->{output} = join('.',$c->{prefix},'clean','marc','xml');
- $c->{exception} = join('.',$c->{prefix},'marc','ex');
- }
+ my $pfx = $c->{prefix} // "bibs";
+ $c->{output} = join('.',$c->{prefix},'clean','marc','xml');
+ $c->{exception} = join('.',$c->{prefix},'exception','marc','xml');
$c->{'renumber-tag'} = 903 unless defined $c->{'renumber-tag'};
$c->{'renumber-subfield'} = 'a' unless defined $c->{'renumber-subfield'};
$c->{window} = 5;
--output -o Cleaned MARCXML output filename
--exception -x Exception (dumped records) MARCXML filename
or
- --prefix=<PREFIX>> -p Shared prefix for output/exception files. Will
- produce PREFIX.clean.marc.xml and PREFIX.ex.xml
+ --prefix=<PREFIX>> -p Shared prefix for output/exception files. Will produce
+ PREFIX.clean.marc.xml and PREFIX.exception.marc.xml
--renumber-from -rf Begin renumbering id sequence with this number
--renumber-tag -rt Tag to use in renumbering (default: 903)