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

#!/usr/bin/perl
use MARC::Batch;
use strict;
use warnings;
use Encode qw(:fallback_all);

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

my ($count_raw, $count_attempted, $count_901c) = (0, 0, 0);
eval {
	while ( my $marc = $batch->next ) {
	    $PerlIO::encoding::fallback = Encode::WARN_ON_ERR | Encode::PERLQQ;
	    $count_attempted++;
	    eval {
		my $field_901c = $marc->subfield(901,"c");
		if(defined $field_901c) {
			chomp $field_901c;
			$count_901c++ if ($field_901c =~ /^.+$/);
			printf "%s\n",$field_901c;
		}
		$count_raw++;
	    };
	    warn "Inner: $@" if $@;
	}
};
warn "Outer: $@" if $@;

$PerlIO::encoding::fallback = $oldencoding;
printf STDERR "Count (attempted): %d\n",$count_attempted;
printf STDERR "Count (raw): %d\n",$count_raw;
printf STDERR "Count (901c): %d\n",$count_901c;
Commit	Line	Data
	1	#!/usr/bin/perl
	2	use MARC::Batch;
	3	use strict;
	4	use warnings;
	5	use Encode qw(:fallback_all);
	6
	7	my $batch = MARC::Batch->new( 'USMARC', @ARGV );
	8	my $oldencoding = $PerlIO::encoding::fallback;
	9	$batch->strict_off();
	10	$batch->warnings_off();
	11
	12	my ($count_raw, $count_attempted, $count_901c) = (0, 0, 0);
	13	eval {
	14	while ( my $marc = $batch->next ) {
	15	$PerlIO::encoding::fallback = Encode::WARN_ON_ERR \| Encode::PERLQQ;
	16	$count_attempted++;
	17	eval {
	18	my $field_901c = $marc->subfield(901,"c");
	19	if(defined $field_901c) {
	20	chomp $field_901c;
	21	$count_901c++ if ($field_901c =~ /^.+$/);
	22	printf "%s\n",$field_901c;
	23	}
	24	$count_raw++;
	25	};
	26	warn "Inner: $@" if $@;
	27	}
	28	};
	29	warn "Outer: $@" if $@;
	30
	31	$PerlIO::encoding::fallback = $oldencoding;
	32	printf STDERR "Count (attempted): %d\n",$count_attempted;
	33	printf STDERR "Count (raw): %d\n",$count_raw;
	34	printf STDERR "Count (901c): %d\n",$count_901c;