select_marc_as_text.pl

   1 #!/usr/bin/perl
   2 use open ':utf8';
   3 use MARC::Batch;
   4 use MARC::Record;
   5 use MARC::File::XML ( BinaryEncoding => 'utf-8' );
   6 use MARC::Field;
   7
   8 my $inverse = $ARGV[0] eq "inverse";
   9
  10 my $record_id_file = $ARGV[1];
  11 my %record_ids;
  12
  13 open FILE, $record_id_file;
  14 while (my $record_id = <FILE>) {
  15     chomp($record_id); $record_ids{ $record_id } = 1;
  16 }
  17 close FILE;
  18
  19 my $id_tag = $ARGV[2]; my $id_subfield = $ARGV[3];
  20
  21 binmode(STDOUT, ':utf8');
  22 binmode(STDIN, ':utf8');
  23
  24 my $M;
  25
  26 foreach $argnum ( 4 .. $#ARGV ) {
  27
  28         print STDERR "Processing " . $ARGV[$argnum] . "\n";
  29
  30     open $M, '<:utf8', $ARGV[$argnum];
  31
  32         my $batch = MARC::Batch->new('XML',$M);
  33         $batch->strict_off();
  34         $batch->warnings_off();
  35
  36     my $count = 0;
  37
  38         while ( my $record = $batch->next() ) {
  39
  40         $count++;
  41
  42                 my $id = $record->field($id_tag);
  43                 if (!$id) {
  44                         print STDERR "ERROR: This record is missing a $id_tag field.\n" . $record->as_formatted() . "\n=====\n";
  45                         next;
  46                 }
  47                 $id = $id->as_string($id_subfield);
  48
  49         if (
  50                 ( ! $inverse && defined $record_ids{ $id } ) ||
  51                 ( $inverse && ! defined $record_ids{ $id } )
  52             ) {
  53             open FILE, ">$id.txt";
  54             binmode(FILE, ':utf8');
  55             print FILE $record->as_formatted();
  56             close FILE;
  57         }
  58         }
  59     print STDERR "Processed $count records.\n";
  60 }