Re: MARC::File::XML utf8 output problem

 > However, when I try to generate MARCXML output with following code the
 > Arabic characters gets corrupted:

 > $xml = MARC::File::XML->out( $file );
 > my $record = MARC::Record->new();
 > ...
 > $xml->write( $record );
 > ...
 > $xml->close();

 > I've tried setting the encoding in various ways without success, e.g.:
 > => use MARC::File::XML ( BinaryEncoding => 'utf8', RecordFormat =>
 > 'USMARC'

What is the value of you records leader position 9? If you have anything
else than 'a', MARC::File::XML->write method will transcode your biblio
records from marc8 to utf8 encoding. That's bad if your records are
already UTF-8 encoded.

You can try forcing your records 9 position before writing them:

   my $leader = $record->leader;
   substr($leader, 9, 1, 'a');
   $record->leader( $leader );

-- 
Frédéric DEMIANS
http://www.tamil.fr/u/fdemians.html