[ReDev] ReDIF-Perl at shuli

[Thomas Krichel]

  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