Contents

#!/usr/bin/perl

use strict;
##
use MARC::Record;
use MARC::File::XML;
use MARC::File::USMARC;
use MARC::Lint;


#print @ARGV[0];
print "\n";

my $lint = MARC::Lint->new();


my $file = MARC::Record->new_from_xml( @ARGV[0] );

#print $file->as_formatted;
#my $file = MARC::File::USMARC->in( 'temp_lint.mrc' );
#print $record->as_formatted;

#print "title: ", $title;
#print $record->as_formatted;

$lint->check_record($file);
my @warnings = $lint->warnings();
    

foreach my $warning ( @warnings ) {
          print $warning . "\n";
}



#while ( my $marc = $file->next() ) {
 #       $lint->check_record( $marc );
#
        # Print the title tag
 #       print $marc->title, "\n";

        # Print the errors that were found
  #      print join( "\n", $lint->warnings ), "\n";
#    } # while


#print "Hello, world!\n";
#@input = @ARGV;
#print "\nthis\n";
#print "\ninput[0]", $input[0], "\n\n";

Version data entries

5 entries across 5 versions & 1 rubygems

Version	Path
zcc-0.1.0	examples/linter.pl
zcc-0.0.3	examples/linter.pl
zcc-0.0.2	bin/linter.pl
zcc-0.2.0	examples/linter.pl
zcc-0.0.1	bin/linter.pl