[ReDev] ReDIF-Perl at shuli

[Jose Manuel Barrueco]

 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 at 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 at shuli:~/perl$ ./test_names
> Author: RePEc:per:2010-06-10:MICHAEL_SCHROEDER -> psc418 ...
> Schröder # Michael
> 
> 
> 
> > look at:
> > 
> > adnetec at shuli:~$ ll CitEc/var/test_names
> > 
> > 
> > ----
> > José Manuel Barrueco                   <barrueco at uv.es>
> > 
> > 
> > 
> 
> -- 
> 
>   Cheers,
> 
>   Thomas Krichel                  http://openlib.org/home/krichel
>                                               skype:thomaskrichel
> 
> 


--

--
José Manuel Barrueco                   <barrueco at uv.es>