<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;"><DIV>Boa tarde Pessoal!</DIV>
<DIV> </DIV>
<DIV>Preciso de uma ajudinha!!</DIV>
<DIV>Não consegui "printar" nada na tela (ainda rsr).</DIV>
<DIV> </DIV>
<DIV>Preciso inicialmente imprimir o título e autores. Estou no caminho certo?</DIV>
<DIV>Quando tentava fazer diretamente sem utilizar o módulo do BibTeX era mais fácil.. agora com o módulo, é como começar do zero de novo..</DIV>
<DIV> </DIV>
<DIV>#!/usr/local/bin/perl</DIV>
<DIV> </DIV>
<DIV> use Text::BibTeX; </DIV>
<DIV> $bib = new Text::BibTeX::File;<BR> $bib->open ("arquivo.bib") || die "Arquivo nao Encontrado: $!\n";</DIV>
<DIV> $bib->set_structure ('Bib',<BR> sortby => 'name',<BR> namestyle => 'full');<BR> </DIV>
<DIV> while ($entry = new Text::BibTeX::Entry $bib)<BR> {</DIV>
<DIV> print $entry; #aqui devo imprimir titulo e autor<BR> }</DIV>
<DIV> </DIV>
<DIV> $at_eof = $bib->eof; </DIV>
<DIV> $bib->close;</DIV>
<DIV> </DIV>
<DIV>Que comando faz imprimir na tela? rs</DIV>
<DIV> </DIV>
<DIV>Obrigada!</DIV>
<DIV>Juliana<BR></DIV></td></tr></table><br>
<hr size=1>Veja quais são os assuntos do momento no Yahoo! + Buscados: <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.maisbuscados.yahoo.com/">Top 10</a> - <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.maisbuscados.yahoo.com/celebridades/">Celebridades</a> - <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.maisbuscados.yahoo.com/m%C3%BAsica/">Música</a> - <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.maisbuscados.yahoo.com/esportes/">Esportes</a>