Login or Register to Ask a Question and Join Our Community

Linux and UNIX Man Pages

Linux & Unix Commands - Search Man Pages

marc::crosswalk::dublincore(3pm) [debian man page]

MARC::Crosswalk::DublinCore(3pm)			User Contributed Perl Documentation			  MARC::Crosswalk::DublinCore(3pm)

NAME

       MARC::Crosswalk::DublinCore - Convert data between MARC and Dublin Core

SYNOPSIS

	       my $crosswalk = MARC::Crosswalk::DublinCore->new;

	       # Convert a MARC record to Dublin Core (simple)
	       my $marc = MARC::Record->new_from_usmarc( $blob );
	       my $dc	= $crosswalk->as_dublincore( $marc );

	       # Convert simple DC to MARC
	       $marc = $crosswalk->as_marc( $dc );

	       # Convert MARC to qualified DC instead
	       $crosswalk->qualified( 1 );
	       $dc = $crosswalk->as_dublincore( $marc );

DESCRIPTION

       This module provides an implentation of the LOC's spec on how to convert metadata between MARC and Dublin Core format. The spec for con-
       verting MARC to Dublin Core is available at: http://www.loc.gov/marc/marc2dc.html, and from DC to MARC:
       http://www.loc.gov/marc/dccross.html.

       NB: The conversion cannot be done in a round-trip manner. i.e. Doing a conversion from MARC to DC, then trying to go back to MARC will not
       yield the original record.

INSTALLATION

       To install this module via Module::Build:

	       perl Build.PL
	       ./Build	       # or `perl Build`
	       ./Build test    # or `perl Build test`
	       ./Build install # or `perl Build install`

       To install this module via ExtUtils::MakeMaker:

	       perl Makefile.PL
	       make
	       make test
	       make install

METHODS

       new( %options )

       Creates a new crosswalk object. You can pass the "qualified" option (true/false) as well.

	       # DC Simple
	       $crosswalk = MARC::Crosswalk::DublinCore->new;

	       # DC Qualified
	       $crosswalk = MARC::Crosswalk::DublinCore->new( qualified => 1 );

       qualified( $qualified )

       Allows you to specify if qualified Dublin Core should be used in the input or output. Defaults to false (DC simple).

	       # DC Simple
	       $crosswalk->qualified( 0 );

	       # DC Qualified
	       $crosswalk->qualified( 1 );

       as_dublincore( $marc )

       convert a MARC::Record to a DublinCore::Record.

       as_marc( $dublincore )

       convert a DublinCore::Record to a MARC::Record. NB: Not yet implemented.

TODO

       * Implement as_marc()
       * add tests

SEE ALSO

       * http://www.loc.gov/marc/marc2dc.html
       * http://www.loc.gov/marc/dccross.html
       * MARC::Record
       * DublinCore::Record

AUTHOR

       * Brian Cassidy <bricas@cpan.org>

COPYRIGHT AND LICENSE

       Copyright 2005 by Brian Cassidy

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

perl v5.8.8							    2007-11-24					  MARC::Crosswalk::DublinCore(3pm)

Check Out this Related Man Page

MARC::File::MicroLIF(3pm)				User Contributed Perl Documentation				 MARC::File::MicroLIF(3pm)

NAME

       MARC::File::MicroLIF - MicroLIF-specific file handling

SYNOPSIS

	   use MARC::File::MicroLIF;

	   my $file = MARC::File::MicroLIF->in( $filename );

	   while ( my $marc = $file->next() ) {
	       # Do something
	   }
	   $file->close();
	   undef $file;

EXPORT

       None.

       The buffer must be large enough to handle any valid record because we don't check for cases like a CR/LF pair or an end-of-record/CR/LF
       trio being only partially in the buffer.

       The max valid record is the max MARC record size(99999) plus one or two characters per tag (CR, LF, or CR/LF).	It's hard to say what the
       max number of tags is, so here we use 6000.  (6000 tags can be squeezed into a MARC record only if every tag has only one subfield
       containing a maximum of one character, or if data from multiple tags overlaps in the MARC record body.  We're pretty safe.)

METHODS

   in()
       Opens a MicroLIF file for reading.

       Gets the next chunk of data.  If $want_line is true then you get the next chunk ending with any combination of 
 and 
 of any length.	If
       it is false or not passed then you get the next chunk ending with x60 followed by any combination of 
 and 
 of any length.

       All trailing 
 and 
 are stripped.

   header()
       If the MicroLIF file has a file header then the header is returned.  If the file has no header or the file has not yet been opened then
       "undef" is returned.

   decode()
       Decodes a MicroLIF record and returns a USMARC record.

       Can be called in one of three different ways:

	   $object->decode( $lif )
	   MARC::File::MicroLIF->decode( $lif )
	   MARC::File::MicroLIF::decode( $lif )

TODO

RELATED MODULES

       MARC::File

LICENSE

       This code may be distributed under the same terms as Perl itself.

       Please note that these modules are not products of or supported by the employers of the various contributors to the code.

AUTHOR

       Andy Lester, "<andy@petdance.com>"

perl v5.10.1							    2010-03-29						 MARC::File::MicroLIF(3pm)
Man Page