[sitka/sitka-tools.git] / marc_export_custom / print901c.pl

#!/usr/bin/perl
use MARC::Batch;
use strict;
use warnings;


my $batch = MARC::Batch->new( 'USMARC', @ARGV );
$batch->strict_off();
$batch->warnings_off();

while ( my $marc = $batch->next ) {
    print $marc->subfield(901,"c"), "\n";
}
Commit	Line	Data
5cef4c16 RJ	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	}