/[MARC-Fast]/trunk/Fast.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/Fast.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 29 by dpavlin, Mon Nov 19 16:37:00 2007 UTC revision 30 by dpavlin, Thu Feb 4 17:08:03 2010 UTC
# Line 384  sub to_ascii { Line 384  sub to_ascii {
384  1;  1;
385  __END__  __END__
386    
387    =head1 UTF-8 ENCODING
388    
389    This module does nothing with encoding. But, since MARC format is byte
390    oriented even when using UTF-8 which has variable number of bytes for each
391    character, file is opened in binary mode.
392    
393    As a result, all scalars recturned to perl don't have utf-8 flag. Solution is
394    to use C<hash_filter> and L<Encode> to decode utf-8 encoding like this:
395    
396      use Encode;
397    
398      my $marc = new MARC::Fast(
399            marcdb => 'utf8.marc',
400            hash_filter => sub {
401                    Encode::decode( 'utf-8', $_[0] );
402            },
403      );
404    
405    This will affect C<to_hash>, but C<fetch> will still return binary representation
406    since it doesn't support C<hash_filter>.
407    
408  =head1 AUTHOR  =head1 AUTHOR
409    
410          Dobrica Pavlinusic          Dobrica Pavlinusic

Legend:
Removed from v.29  
changed lines
  Added in v.30

  ViewVC Help
Powered by ViewVC 1.1.26