#use MARC::Field;
use Unicode::Normalize;
-my $filename = $ARGV[0];
-my $tag1 = $ARGV[1];
-my $subfield1 = $ARGV[2];
-my $tag2 = $ARGV[3];
-my $subfield2 = $ARGV[4];
+my $filetype = $ARGV[0]; # XML or USMARC
+my $filename = $ARGV[1];
+my $tag1 = $ARGV[2]; # use NONE for no subfield, such as in 001
+my $subfield1 = $ARGV[3];
+my $tag2 = $ARGV[4];
+my $subfield2 = $ARGV[5];
die "required arguments: filename tag1 subfield1 tag2 subfield2\n" if (! ($filename && $tag1 && $subfield1 && $tag2 && $subfield2) );
print STDERR "Processing $filename\n";
-my $batch = MARC::Batch->new('XML',$filename); $batch->strict_off(); $batch->warnings_off();
+my $batch = MARC::Batch->new($filetype,$filename); $batch->strict_off(); $batch->warnings_off();
while ( my $record = $batch->next() ) {
my @tags1 = (); if ($record->field($tag1)) { @tags1 = $record->field($tag1); } else { next; }
foreach my $f1 ( @tags1 ) {
- if ($f1->subfield($subfield1)) {
- my @subfields1 = $f1->subfield($subfield1);
- foreach my $s1 ( @subfields1 ) {
- #***********************************************************************************************************************
-
- my @tags2 = (); if ($record->field($tag2)) { @tags2 = $record->field($tag2); } else { next; }
-
- foreach my $f2 ( @tags2 ) {
- if ($f2->subfield($subfield2)) {
- my @subfields2 = $f2->subfield($subfield2);
- foreach my $s2 ( @subfields2 ) {
- print "$s1\t$s2\n";
+ if ($subfield1 eq 'NONE' ) {
+
+ #***********************************************************************************************************************
+
+ my @tags2 = (); if ($record->field($tag2)) { @tags2 = $record->field($tag2); } else { next; }
+
+ foreach my $f2 ( @tags2 ) {
+ if ($f2->subfield($subfield2)) {
+ my @subfields2 = $f2->subfield($subfield2);
+ foreach my $s2 ( @subfields2 ) {
+ print $f1->as_string() . "\t$s2\n";
+ }
}
}
- }
- #***********************************************************************************************************************
+ #***********************************************************************************************************************
+
+ } else {
+ if ($f1->subfield($subfield1)) {
+ my @subfields1 = $f1->subfield($subfield1);
+ foreach my $s1 ( @subfields1 ) {
+ #***********************************************************************************************************************
+
+ my @tags2 = (); if ($record->field($tag2)) { @tags2 = $record->field($tag2); } else { next; }
+
+ foreach my $f2 ( @tags2 ) {
+ if ($f2->subfield($subfield2)) {
+ my @subfields2 = $f2->subfield($subfield2);
+ foreach my $s2 ( @subfields2 ) {
+ print "$s1\t$s2\n";
+ }
+ }
+ }
+
+ #***********************************************************************************************************************
+ }
}
}
}