[librecat-dev] Export into JSON using perl

Tiago Murakami trmurakami at gmail.com
Thu Mar 7 16:30:59 CET 2019


Hi,

I made my first perl script to convert MARC ALEPHSEQ into JSON. I can
import and convert to JSON using myfixes. How I can export into JSON files?

Thanks,

=================

use Catmandu;

my $importer = Catmandu->importer('MARC',file => 'input/2records.seq' ,
type => 'ALEPHSEQ');
my $fixer    = Catmandu->fixer('fixesCatmandu.txt');
my $exporter = Catmandu->exporter('JSON');

$exporter->add_many(
     $fixer->fix($importer->benchmark)
);

=================

-- 
Tiago Murakami
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.uni-bielefeld.de/mailman2/unibi/public/librecat-dev/attachments/20190307/0b39db03/attachment.html>


More information about the librecat-dev mailing list