1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
MARC-MiJ
Allow perl's MARC::Record and MARC::File/MARC::Batch to deal with marc-in-json, a
MARC serialization described at http://dilettantes.code4lib.org/blog/2010/09/a-proposal-to-serialize-marc-in-json/.
EXAMPLES
# Read in from newline-delimieted JSON file
use MARC::Batch;
use MARC::File::MiJ;
my $reader = new MARC::Batch('MiJ', $jsonfilename);
while (my $r = $batch->next) { ... }
# Convert binary to marc-in-json
use MARC::Record::MiJ;
my $batch = MARC::Batch->new('USMARC', 'file.mrc');
open(my $jsonfile, '>', 'file.ndj' );
while (my $r = $batch->next) {
print $jsonfile MARC::Record::MiJ->to_mij($r), "\n";
}
close $jsonfile;
INSTALLATION
To install this module, run the following commands:
perl Build.PL
./Build
./Build test
./Build install
LICENSE AND COPYRIGHT
This software is free software and may be distributed under the same
terms as Perl itself.
Copyright (C) 2013 Bill Dueber
|
