view release on metacpan or  search on metacpan

bin/marc-validator  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use App::MARC::Validator;

our $VERSION = 0.08;

# Run.
exit App::MARC::Validator->new->run;

# Print version.
sub VERSION_MESSAGE {
	print $VERSION."\n";
	exit 0;
}

__END__

=pod

=encoding utf8

=head1 NAME

marc-validator - Tool to validate records in MARC file.

=head1 SYNOPSIS

 marc-validator [-d] [-h] [-i id] [-l] [-o output_file] [-p] [-r] [-u use_string] [-v] [--version] marc_xml_file..

=head1 DESCRIPTION

Tool to validate dataset from MARC record collections.

It supports MARC XML files now.

=head1 ARGUMENTS

=over 8

=item * C<-d>

Debug mode.

=item * C<-h>

Print help.

=item * C<-i id>

Record identifier defined by MARC field/subfield.
Example value is '015a' for national library id.

Default value is '001'.

=item * C<-l>

Print list of plugins.

=item * C<-o output_file>

Output file to save result.

Default value is undef.

=item * C<-p>

Pretty print JSON output.

=item * C<-r>

Reccomendations.

=item * C<-u use_string>

Use string to prefer plugin or filter.

Format of string is type:name,type:name,...
Type could be 'plugin' or 'filter' and name is full Perl module name of plugin.

=item * C<-v>

Verbose mode.

=item * C<--version>

Print version of script.

=item * C<marc_xml_file..>

MARC XML file name(s).

=back