Add 901c print tool.
[sitka/sitka-tools.git] / marc_export_custom / print901c.pl
1 #!/usr/bin/perl
2 use MARC::Batch;
3 use strict;
4 use warnings;
5
6
7 my $batch = MARC::Batch->new( 'USMARC', @ARGV );
8 $batch->strict_off();
9 $batch->warnings_off();
10
11 while ( my $marc = $batch->next ) {
12     print $marc->subfield(901,"c"), "\n";
13 }