Re: Marc::XML with MARC21

Oops I forgot to attach the script as promised didn't I. I also meant
to say that this is a fine place to discuss questions about eprints
too. Although I imagine it might be good to ask on eprints specific
lists where there might be more eprints eyes.

//Ed

#!/usr/bin/perl

use MARC::File::XML;
use MARC::Record;
use Encode;

open XML, "marc.xml";
$xml = join('', <XML>);

Encode::from_to($xml, 'iso-8859-1', 'utf-8');

my $record = MARC::Record->new_from_xml($xml);
print $record->as_formatted();