View on
MetaCPAN
Frédéric Demians > marc-moose-1.0.34 > MARC::Moose

Download:
marc-moose-1.0.34.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  2
Open  0
View/Report Bugs
Module Version: 1.0.34   Source   Latest Release: marc-moose-1.0.35

NAME ^

MARC::Moose - Moose based MARC records set of tools

VERSION ^

version 1.0.34

DESCRIPTION ^

SYNOPSYS ^

 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 );
 }

WARNINGS ^

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.

SEE ALSO ^

AUTHOR ^

Frédéric Demians <f.demians@tamil.fr>

COPYRIGHT AND LICENSE ^

This software is copyright (c) 2017 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.

syntax highlighting: