2 # ./marc_grep.pl tag subfield value marcfile > out 2> err
3 # Spit out records that contain the tag/subfield/value combination provided
10 my ($tag,$subfield,$value,$file) = @ARGV;
12 my $batch = MARC::Batch->new( 'USMARC', $file );
14 $batch->warnings_off();
17 while ( my $marc = $batch->next ) {
19 foreach my $f ($marc->fields()) {
20 if ($f->tag() eq $tag && $f->subfield($subfield) eq $value) {
25 print $marc->as_usmarc();