#!/usr/local/bin/perl

use Text::Refer;
use strict;
use warnings;

#my $ref = Text::Refer::File->new;
#$ref->open('1.enw')
#or die "erro";

my $parser = new Text::Refer::Parser;
while (my $ref = $parser->input(\*STDIN)) {
    print "Conteudo do Arquivo: \n";
    $ref->abstract(undef); #delete abstract
    print $ref->as_string(Quick=>1), "\n"; #imprime tudo
    #
    print "**** Extracao ****\n";
    print "Titulo: ", $ref->title, "\n";
    #print "Autor: ", $ref->author, "\n";
    print "\n";
    my @authors    = $ref->author;      # list context
    my $lastAuthor = $ref->author;
    my $firstAuthor = $ref->author;
 
    print "Autores:\n";
    print @authors;
    print "\n";
    print "\n";
    print "Primeiro Autor:\n";
    print $firstAuthor;
    print "\n";
    print "\n";
    print "Ultimo Autor:\n";
    print $lastAuthor;
    #ou print "Title: ", $ref->get('T'), "\n";
    print "\n";
}
#defined(my $ref) or die "error!";

#cat 1.enw | perl extrai.pl