2009/10/22 Juliana <span dir="ltr"><<a href="mailto:julianalduque@yahoo.com.br">julianalduque@yahoo.com.br</a>></span><br><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<table cellspacing="0" cellpadding="0" border="0"><tbody><tr><td valign="top" style="font:inherit"><div>Agradeço todas as dicas.</div>
<div>Vou colocar a mão na massa no final de semana.</div></td></tr></tbody></table></blockquote><div><br></div><div>Por que esperar até o fim de semana? : )</div><div><br></div><div>De acordo com a sua descrição do problema:</div>
<div><br></div><div>"<span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; ">Eu preciso ler (abrir) um arquivo.enw (EndNote) e apartir daí extrair (imprimir) todas as informações do arquivo, tais como título, autores (primeiro e último na ordem: nome e sobrenome) e todos os demais itens que tens no arquivo.enw"</span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "><br></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; ">Como você gostaria que fosse a interface do programa? Aqui vai uma primeira sugestão:</span></div>
<div><font class="Apple-style-span" face="arial, sans-serif"><br></font></div><div><font class="Apple-style-span" face="arial, sans-serif"> use Biblio::EndNote;</font></div><div><font class="Apple-style-span" face="arial, sans-serif"><br>
</font></div><div><font class="Apple-style-span" face="arial, sans-serif"> my $bib = Biblio::EndNote->parse( $text );</font></div><div><font class="Apple-style-span" face="arial, sans-serif"><br></font></div><div><font class="Apple-style-span" face="arial, sans-serif"><span class="Apple-style-span" style="font-family: arial; "><div>
<font class="Apple-style-span" face="arial, sans-serif"> # ou...</font></div><div><font class="Apple-style-span" face="arial, sans-serif"><br></font></div><div><font class="Apple-style-span" face="arial, sans-serif"> my $bib = Biblio::EndNote->open( $filename ); </font></div>
<div><font class="Apple-style-span" face="arial, sans-serif"><br></font></div></span></font></div><div><font class="Apple-style-span" face="arial, sans-serif"> print $bib->key('%T'); # title</font></div><div>
<font class="Apple-style-span" face="arial, sans-serif"><br></font></div><div><font class="Apple-style-span" face="arial, sans-serif"> my $title = $bib->title();</font></div><div><font class="Apple-style-span" face="arial, sans-serif"> my @authors = $bib->authors();</font></div>
<div><font class="Apple-style-span" face="arial, sans-serif"><br></font></div><div><font class="Apple-style-span" face="arial, sans-serif">O que você acha?</font></div><div><span class="Apple-style-span" style="font-family: arial, helvetica, sans-serif; font-size: 12px; "><div class="reply" style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 48px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; outline-width: 0px; outline-style: initial; outline-color: initial; list-style-type: none; list-style-position: initial; list-style-image: initial; text-decoration: none; display: block; clear: both; ">
</div></span></div></div>