/[webpac]/trunk/tools/isis2marc.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/tools/isis2marc.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 228 - (show annotations)
Mon Feb 23 23:17:17 2004 UTC (20 years, 1 month ago) by dpavlin
File MIME type: text/plain
File size: 2115 byte(s)
script which will select just some fields from CDS/ISIS database and insert
only unique values in MARC file (useful for creating ad-hoc authority file)

1 #!/usr/bin/perl -w
2
3 # this utility will convert some (or all, defined by regex)
4 # fields into marc file from one or more CDS/ISIS files
5 #
6 # 2004-02-23 Dobrica Pavlinusic <dpavlin@rot13.org>
7 #
8 # if ISIS databases are named same as directories in which they
9 # reside, you can specify just directories (so that shell globing work)
10 # like this:
11 #
12 # ./isis2marc.pl all.marc /mnt2/*/LIBRI
13
14 use strict;
15 use OpenIsis;
16 use MARC;
17 use Data::Dumper;
18
19 # to select all fields use something like /./
20 my $field_filter = '^700$';
21
22 my $marc_file = shift @ARGV || die "Usage: $0 [MARC file] [ISIS db]...";
23
24 my $marc=MARC->new;
25
26 # it seems that I can't specify invalid template for 005 and prevent
27 # output from creating field 005
28 #$num->add_005s({record=>1});
29
30 select(STDOUT); $|=1;
31
32 my %stored;
33 my $total = 0;
34
35 foreach my $db_file (@ARGV) {
36
37 print "reading '$db_file'";
38
39 if (-d $db_file) {
40 $db_file =~ s,([^/]+)/*$,$1/$1,;
41 }
42
43 my $db = OpenIsis::open( $db_file );
44 my $maxmfn = OpenIsis::maxRowid( $db ) || 1;
45
46 print " [rows: $maxmfn]\n";
47
48 my $progress_len = 50;
49
50 my $step = int($maxmfn/$progress_len);
51 $step = 1 if ($step == 0);
52
53 my $new = 0;
54
55 for (my $mfn = 1; $mfn <= $maxmfn; $mfn++) {
56 print "." if ($mfn % $step == 0);
57 my $row = OpenIsis::read( $db, $mfn );
58 foreach my $fld (keys %{$row}) {
59 next if ($fld !~ m/$field_filter/);
60
61 my @values;
62 my $num;
63
64 foreach my $sf (@{$row->{$fld}}) {
65
66 $stored{$sf}++;
67
68 next if ($stored{$sf} > 1);
69
70 my %v;
71 while ($sf =~ s/\^(\w)([^\^]+)//) {
72 $v{$1} = $2;
73
74 # delete last subfield delimiter
75 $sf = "" if ($sf =~ /\^\w*$/);
76 }
77 if (%v) {
78 push @values, %v;
79 } elsif ($sf && $sf !~ /^(\^\w)*\s*$/) {
80 # regex above remove empty subfields
81 push @values, $sf;
82 }
83
84 next if (! @values);
85
86 if (! $num) {
87 $num=$marc->createrecord();
88 $new++;
89 }
90 $marc->addfield({record=>$num,
91 field=>$fld,
92 i1=>" ", i2=>" ",
93 value=>\@values});
94
95 }
96
97 }
98 }
99 $total += $new;
100 printf "\t%d (%0.2f%%) t: %d\n",$new,($new*100/$maxmfn),$total;
101 $marc->output({file=>"> $marc_file",'format'=>"usmarc"})
102 }
103

Properties

Name Value
cvs2svn:cvs-rev 1.1
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26