/usr/bin/marc2dc is in libmarc-crosswalk-dublincore-perl 0.02-3.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 | #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
=head1 NAME
marc2dc - convert a MARC record to Dublin Core
=head1 SYNOPSIS
% marc2dc [-q] marc.dat
=head1 DESCRIPTION
This script takes a MARC record as input and converts it
to an ad-hoc text format created from the conversion of the
record into Dublin Core.
=head1 TODO
=over 4
=item * generate more useful output
=back
=head1 AUTHOR
=over 4
=item * Brian Cassidy E<lt>bricas@cpan.orgE<gt>
=back
=head1 COPYRIGHT AND LICENSE
Copyright 2004 by Brian Cassidy
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
use strict;
use warnings;
use MARC::Crosswalk::DublinCore;
use MARC::Record;
use File::Slurp;
use Getopt::Std;
use Pod::Usage;
our $VERSION = '0.01';
my %options;
getopts( 'q', \%options );
my $file = $ARGV[ 0 ];
HELP_MESSAGE() unless defined $file;
my $blob = read_file( $file );
my $marc = MARC::Record->new_from_usmarc( $blob );
my $crosswalk = MARC::Crosswalk::DublinCore->new( qualified => $options{ q } );
my $dc = $crosswalk->as_dublincore( $marc );
for( $dc->elements ) {
my $qualifier = $_->qualifier;
my $scheme = $_->scheme;
printf( "%s: %s\n", $_->name . ( $qualifier ? ".$qualifier" : '' ) . ( $scheme ? "($scheme)" : '' ), $_->content );
}
sub HELP_MESSAGE {
pod2usage();
}
|