That's clear Thomas, but if I do: ReDIF::Parser::set_parser_options( x_attributes => 1, utf8_output => 1 ); I suppose I don't need to binmode the output. Or, at least, this was what happened before. May be I did something wrong when installed the previous version. Could you please to instale the latest one. Thanks,
Jose Manuel Barrueco writes
This will not read any .redif files.
Do you have a minimal test handy? I may hit the sack though right now.
adnetec@shuli:~/perl$ cat test_names #!/usr/bin/perl
use strict; use warnings;
use ReDIF::init; use Encode;
use ReDIF::Parser qw( &redif_open_file &redif_get_next_template );
ReDIF::Parser::set_parser_options( x_attributes => 1, utf8_output => 1 );
my $file = '/home/adnetec/RePEc/remo/per/pers/s/psc418.rdf';
redif_open_file ( $file ); binmode(STDOUT,":utf8"); my $T; while ($T = eval {redif_get_next_template} ) { print "Author: $T->{handle}[0] -> $T->{'short-id'}[0] ...\n"; # print join '',encode("utf8", $T->{'name-last'}[0], Encode::FB_CROAK)," # $T->{'name-first'}[0]\n"; print join '',$T->{'name-last'}[0]," # $T->{'name-first'}[0]\n"; }
adnetec@shuli:~/perl$ ./test_names Author: RePEc:per:2010-06-10:MICHAEL_SCHROEDER -> psc418 ... Schröder # Michael
look at:
adnetec@shuli:~$ ll CitEc/var/test_names
---- José Manuel Barrueco <barrueco@uv.es>
--
Cheers,
Thomas Krichel http://openlib.org/home/krichel skype:thomaskrichel
-- -- José Manuel Barrueco <barrueco@uv.es>