use Getopt::Long;
use MARC::Batch;
use Unicode::Normalize;
+use MARC::File::XML ( BinaryEncoding => 'utf-8' );
my $conf = {}; # configuration hashref
my $count = 0;
$batch->strict_off();
$batch->warnings_off();
- while ( eval { $record = $batch->next } ) {
- my $marc = undef;
+ while ( $record = $batch->next ) {
$count++; progress_ticker();
+ my $marc = undef;
unless ( defined $record )
{ dump_exception($marc); next; }
dump_fingerprints($marc);
}
}
-print "\nProcessed $count records\n" unless $conf->{quiet};
-
+print "\nSuccessfully processed:\t$count\n" unless $conf->{quiet};
=head2 populate_marc