3 use Time::HiRes qw/time/;
5 use MARC::File::XML ( BinaryEncoding => 'utf-8' );
23 open $M, '<:utf8', $marcfile;
24 open $I, '>:utf8', $import;
25 open $S, '>:utf8', $shelve;
33 /tag="901" ind1=" " ind2=" "><subfield code="a">(\d+)</;
43 unless ($count && $count % 100) {
44 print STDERR "\r$count\t(shelved: $scount, import: $icount)\t". $count / (time - $starttime);