14 |
my $nr = $x->openmarc( { file => $file, format => 'usmarc' }) || |
my $nr = $x->openmarc( { file => $file, format => 'usmarc' }) || |
15 |
die "Can't open MARC file '$file'"; |
die "Can't open MARC file '$file'"; |
16 |
|
|
17 |
print "file '$file' with '",$x->marc_count(),"' records...\n"; |
print "file: '$file' 773 t: ",$x->getfirstvalue({record=>$x->nextmarc(1),field=>773,subfield=>'t',delimiter=>" "}),"\n"; |
18 |
|
$x->nextmarc(-1); |
19 |
|
|
20 |
my $dir = open_data_files($index); |
my $dir = open_data_files($index); |
21 |
my $last_tell=0; |
my $last_tell=0; |