From 3d6824773d20ca5de4260cc9f20d72c7ea88e871 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Thu, 12 Jun 2008 17:21:12 +0000 Subject: [PATCH] more logic errors --- spit_csv.pl | 14 ++++++++++++-- 1 files changed, 12 insertions(+), 2 deletions(-) diff --git a/spit_csv.pl b/spit_csv.pl index 6b0b6b3..339ec2f 100755 --- a/spit_csv.pl +++ b/spit_csv.pl @@ -7,6 +7,7 @@ use Unicode::Normalize; my @desired_tags_subfields = (); foreach my $argnum ( 1 .. $#ARGV) { + print STDERR $ARGV[$argnum] . "\n"; push @desired_tags_subfields, $ARGV[$argnum]; } @@ -31,7 +32,16 @@ foreach my $argnum ( 0 .. 0 ) { my $first = 1; for (my $i = 0; $i < scalar(@desired_tags_subfields); $i+=2) { - my @tags; if ($record->field($desired_tags_subfields[$i])) { @tags = $record->field($desired_tags_subfields[$i]); } + my @tags = (); + if ($record->field($desired_tags_subfields[$i])) { + @tags = $record->field($desired_tags_subfields[$i]); + } + if (scalar(@tags)>1) { + die "Multiple $desired_tags_subfields[$i]\n"; + } elsif (scalar(@tags)==0) { + print STDERR "Record $count missing $desired_tags_subfields[$i]\n"; + goto END_OF_WHILE; + } foreach my $f ( @tags ) { if ($f->subfield($desired_tags_subfields[$i+1])) { if ($first) { @@ -44,7 +54,7 @@ foreach my $argnum ( 0 .. 0 ) { } } print STDOUT "\n"; - + END_OF_WHILE: } print STDERR "Processed $count records\n"; } -- 1.7.2.5