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