NAME¶

Catmandu::Fix::marc_spec - reference MARC values via MARCspec - A common MARC record path language <http://marcspec.github.io/MARCspec/>

SYNOPSIS¶

In a fix file e.g. 'my.fix':

    # Assign value of MARC leader to my.ldr.all
    marc_spec('LDR', my.ldr.all)
    # Assign values of all subfields of field 245 as a joined string
    marc_spec('245', my.title.all)
    # If field 245 exists, set string 'the title' as the value of my.title.default
    marc_spec('245', my.title.default, value:'the title')
    # Assign values of all subfields of every field 650 to my.subjects.all
    # as a joined string
    marc_spec('650', my.subjects.all)
    # Same as above with joining characters '###'
    marc_spec('650', my.subjects.all, join:'###')
    # Same as above but added as an element to the array my.append.subjects
    marc_spec('650', my.append.subjects.$append, join:'###')
    # Every value of a subfield will be an array element
    marc_spec('650', my.split.subjects, split:1)
    # Assign values of all subfields of all fields having indicator 1 = 1
    # and indicator 2 = 0 to the my.fields.indicators10 array.
    marc_spec('...{^1=\1}{^2=\0}', my.fields.indicators10.$append)
    # Assign first four characters of leader to my.firstcharpos.ldr
    marc_spec('LDR/0-3', my.firstcharpos.ldr)
    # Assign last four characters of leader to my.lastcharpos.ldr
    marc_spec('LDR/#-3', my.lastcharpos.ldr)
    # Assign value of subfield a of field 245 to my.title.proper
    marc_spec('245$a', my.title.proper)
    # Assign first two characters of subfield a of field 245 to my.title.proper
    marc_spec('245$a/0-1', my.title.charpos)
    # Assign all subfields of second field 650 to my.second.subject
    marc_spec('650[1]', my.second.subject)
    # Assign values of all subfields of last field 650 to my.last.subject
    marc_spec('650[#]', my.last.subject)
    # Assign an array of values of all subfields of the first two fields 650
    # to my.two.split.subjects
    marc_spec('650[0-1]', my.two.split.subjects, split:1)
    # Assign a joined string of values of all subfields of the last two fields 650
    # to my.two.join.subjects
    marc_spec('650[#-1]', my.two.join.subjects, join:'###')
    # Assign value of first subfield a of all fields 020 to my.isbn.number
    marc_spec('020$a[0]', my.isbn.number)
    # Assign value of first subfield q of first field 020 to my.isbn.qual.one
    marc_spec('020[0]$q[0]', my.isbn.qual.none)
    # Assign values of subfield q and a in the order stated as an array
    # to  my.isbns.pluck.all
    # without option 'pluck:1' the elments will be in 'natural' order
    # see example below
    marc_spec('020$q$a', my.isbns.pluck.all, split:1, pluck:1)
    # Assign value of last subfield q and second subfield a
    # in 'natural' order of last field 020 as an array to my.isbn.qual.other
    marc_spec('020[#]$q[#]$a[1]', my.isbn.qual.other, split:1)
    # Assign first five characters of value of last subfield q and last character
    # of value of second subfield a in 'natural' order of all fields 020
    # as an array to  my.isbn.qual.substring.other
    marc_spec('020$q[#]/0-4$a[1]/#', my.isbn.qual.substring.other, split:1)
    # Assign values of of all other subfields than a of field 020
    # to my.isbn.other.subfields
    marc_spec('020$a', my.isbn.other.subfields, invert:1)
    # Assign value of subfield a of field 245 only, if subfield a of field 246
    # with value 1 for indicator1 exists
    marc_spec('245$a{246^1=\1}', my.var.title)

And then on command line:

    catmandu convert MARC to YAML --fix my.fix < perl_books.mrc

See Catmandu Importers <http://librecat.org/Catmandu/#importers> and Catmandu Fixes <http://librecat.org/Catmandu/#fixes> for a deeper understanding of how Catmandu <http://librecat.org/> works.

DESCRIPTION¶

Catmandu::Fix::marc_spec is a fix for the famous Catmandu Framework.

For the most part it behaves like Catmandu::Fix::marc_map , but has a more fine grained method to reference MARC data content.

See MARCspec - A common MARC record path language <http://marcspec.github.io/MARCspec/> for documentation on the path syntax.

METHODS¶

    # INPUT
    [245,1,0,"a","Cross-platform Perl /","c","Eric F. Johnson."]
    # CALL
    marc_spec('245', my.title.$append)
    # OUTPUT
    {
      my {
        title [
            [0] "Cross-platform Perl /Eric F. Johnson."
        ]
      }
    }

OPTIONS¶

    # INPUT
    [650," ",0,"a","Perl (Computer program language)"],
    [650," ",0,"a","Web servers."]
    # CALL
    marc_spec('650', my.subjects, split:1)
    # OUTPUT
    {
      my {
        subjects [
            [0] "Perl (Computer program language)",
            [1] "Web servers."
        ]
      }
    }

    # INPUT
    [650," ",0,"a","Perl (Computer program language)"],
    [650," ",0,"a","Web servers."]
    # CALL
    marc_spec('650', my.subjects, nested_arrays:1)
    # OUTPUT
    {
      my {
        subjects [
            [0] [
                [0] "Perl (Computer program language)"
            ]
            [1] [
                [0] "Web servers."
            ]
        ]
      }
    }

    # INPUT
    [650," ",0,"a","Perl (Computer program language)"],
    [650," ",0,"a","Web servers."]
    # CALL
    marc_spec('650', my.subjects, join:'###')
    # OUTPUT
    {
      my {
        subjects "Perl (Computer program language)###Web servers."
      }
    }

    # INPUT
    ["020"," ", " ","a","0491001304","q","black leather"]
    # CALL
    marc_spec('020$q$a', my.isbn, split:1)
    # OUTPUT
    {
      my {
        isbn [
            [0] 0491001304,
            [1] "black leather"
        ]
      }
    }

    # INPUT
    ["020"," ", " ","a","0491001304","q","black leather"]
    # CALL
    marc_spec('020$q$a', my.plucked.isbn, split:1, pluck:1)
    # OUTPUT
    {
      my {
        isbn [
            [0] "black leather",
            [1] 0491001304
        ]
      }
    }

    # INPUT
    ["020"," ", " ","a","0491001304"]
    # CALL
    marc_spec('020$a$q', my.isbn, value:'one subfield exists')
    # OUTPUT
    {
      my {
        isbn "one subfield exists"
      }
    }

   # references all subfields but not subfield a and q
   marc_spec('020$a$q' my.other.subfields, invert:1)
   # references all subfields but not subfield a and not the last repetition
   # of subfield q
   marc_spec('020$a$q[#]' my.other.subfields, invert:1)
   # references all but not the last two characters of first subfield a
   marc_spec('020$a[0]/#-1' my.other.subfields, invert:1)

INLINE¶

This Fix can be used inline in a Perl script:

    use Catmandu::Fix::marc_spec as => 'marc_spec';
    my $data = { record => [...] };
    $data = marc_spec($data,'245$a','title');
    print $data->{title} , "\n";

SEE ALSO¶

Catmandu::Fix Catmandu::Fix::marc_map

AUTHOR¶

Carsten Klee <klee@cpan.org>

CONTRIBUTORS¶

• Johann Rolschewski, "<jorol at cpan>",
• Patrick Hochstenbach, "<patrick.hochstenbach at ugent.be>",
• Nicolas Steenlant, "<nicolas.steenlant at ugent.be>"

LICENSE AND COPYRIGHT¶

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO¶

• MARCspec - A common MARC record path language <http://marcspec.github.io/MARCspec/>
• Catmandu <http://librecat.org/>
• Catmandu Importers <http://librecat.org/Catmandu/#importers>
• Catmandu Importers <http://librecat.org/Catmandu/#importers>
• Catmandu Fixes <http://librecat.org/Catmandu/#fixes>
• Catmandu::MARC::Fix::marc_map
• Catmandu Paths <http://librecat.org/Catmandu/#paths>
• Catmandu Wildcards <http://librecat.org/Catmandu/#wildcards>
• MARC::Spec
• Catmandu::Fix
• Catmandu::MARC