zavrsni-radovi/json2marc.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5 use autodie;
   6 use utf8;
   7
   8 use JSON;
   9 use Data::Dump qw(dump);
  10 use MARC::Record;
  11
  12 open(my $json, '<', 'report_62836_1046_ZavrsniRadovi.json');
  13 {
  14         undef $/;
  15         my $data = <$json>;
  16         close($json);
  17         $json = decode_json($data);
  18 }
  19 #warn dump($json->[0]);
  20
  21 my $stat;
  22
  23 foreach my $rad ( @$json ) {
  24
  25         print dump($rad), "\n";
  26
  27         if ( ! $rad->{naslovhr} ) {
  28                 $stat->{no_naslovhr}++;
  29                 next;
  30         }
  31         $stat->{radova}++;
  32
  33         my $marc = MARC::Record->new;
  34         $marc->encoding( 'UTF-8' );
  35
  36         $marc->add_fields(
  37                 grep { ref($_) eq 'ARRAY' }
  38                 [ '100', '1', '#', a => $rad->{prezime} . ', ' . $rad->{ime}, g => 'JMBAG:' . $rad->{jmbag} ],
  39                 [ '245', '1', '0', a => $rad->{naslovhr} ],
  40                 [ '246', '1',
  41                         $rad->{nasloven} =~ m/The / ? 4 :
  42                         $rad->{nasloven} =~ m/A /   ? 2 : ' ' # FIXME?
  43                         , a => $rad->{nasloven}, i => 'Naslov na engleskom: '
  44                 ],
  45                 $rad->{'brojstranica'} ? [ '300', '#', '#', a => $rad->{'brojstranica'} . ' str. ;', c => '30 cm' ] : '',
  46                 [ '502', '#', '#', b => $rad->{studij} . ' studij', c => 'Fakultet elektrotehnike i računarstva u Zagrebu', g => 'smjer: ' . $rad->{smjer}, g => 'šifra smjera: ' . $rad->{sifsmjer}, d => $rad->{datumzavrsetka} ],
  47                 $rad->{sazetakhr} ? [ '520', '3', '#', a => 'Sažetak na hrvatskom: ' . $rad->{sazetakhr} ] : '',
  48                 $rad->{sazetaken} ? [ '520', '3', '#', a => 'Sažetak na engleskom: ' . $rad->{sazetaken} ] : '',
  49                 $rad->{keywords}  ? [ '653', '#', '#', map { ( a => $_ ) } split(/;\s*/, $rad->{keywords}  ) ] : '',
  50                 $rad->{keywords_en} ? [ '653', '#', '#', map { ( a => $_ ) } split(/;\s*/, $rad->{keywords_en}) ] : '',
  51                 [ '700', '1', '#', a => $rad->{prezmentor} . ', ' . $rad->{imementor}, 4 => 'ths' ],
  52                 $rad->{prezmentor2} ? [ '700', '1', '#', a => $rad->{prezmentor2} . ', ' . $rad->{imementor2}, 4 => 'ths' ] : ''
  53         );
  54
  55         print $marc->as_formatted, "\n\n"; # FIXME
  56
  57 #       last if $stat->{radova} == 10; # FIXME
  58 }
  59
  60 print "# stat = ",dump($stat);
  61
  62 =for import
  63
  64 ($recordid, $biblioitemnumber) = AddBiblio($marc_record, $framework);
  65
  66 =cut