MARC::Moose - Moose based MARC records set of tools
version 1.0.46
use MARC::Moose::Record; use MARC::Moose::Reader::File::Iso2709; my $reader = MARC::Moose::Reader::File::Iso2709->new( file => 'biblio.iso', ); while ( my $record = $reader->read() ) { # Remove some fields $record->fields([ grep { not $_->tag ~~ [qw(001 009 039 917 930 955)] } @{$record->fields} ]); # Clean some subfields for my $field ( @{$record->fields} ) { next unless $field->tag ~~ [qw(410 461 600 606 607 608)]; $field->subf([ grep { not $_->[0] =~ /0|2|3|9/ } @{$field->subf} ]); } print $formater->format( $record ); }
MARC records are expected to be UTF-8 encoded. It won't work if it isn't. Parsed records MUST be UTF-8. If you don't have UTF-8 records, write a specific reader or use a generic tool like yaz-marcdump before loading records.
MARC::Moose
MARC::Moose::Record
MARC::Moose::Field
MARC::Moose::Field::Std
MARC::Moose::Field::Control
MARC::Moose::Reader
MARC::Moose::Reader::File
MARC::Moose::Reader::File::Iso2709
MARC::Moose::Reader::File::Marcxml
MARC::Moose::Reader::File::Isis
MARC::Moose::Writer
MARC::Moose::Writer:File
MARC::Moose::Parser
MARC::Moose::Parser::Iso2709
MARC::Moose::Parser::Marcxml
MARC::Moose::Parser::MarcxmlSax
MARC::Moose::Parser::Isis
MARC::Moose::Formater
MARC::Moose::Formater::Iso2709
MARC::Moose::Formater::Marcxml
MARC::Moose::Formater::Text
MARC::Moose::Formater::Yaml
Frédéric Demians <f.demians@tamil.fr>
This software is copyright (c) 2022 by Frédéric Demians.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
To install MARC::Moose, copy and paste the appropriate command in to your terminal.
cpanm
cpanm MARC::Moose
CPAN shell
perl -MCPAN -e shell install MARC::Moose
For more information on module installation, please visit the detailed CPAN module installation guide.