Ola Juliana! Bom dia!<br><br><div class="gmail_quote">2009/11/7 Juliana <span dir="ltr"><<a href="mailto:julianalduque@yahoo.com.br">julianalduque@yahoo.com.br</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<table border="0" cellpadding="0" cellspacing="0"><tbody><tr><td style="font-family: inherit; font-style: inherit; font-variant: inherit; font-weight: inherit; font-size: inherit; line-height: inherit; font-size-adjust: inherit; font-stretch: inherit;" valign="top">
<div>
<div>Olá lista Perl! bom dia!</div>
<div> </div>
<div>Preciso de uma dica de vocês..</div>
<div><br>Preciso extrair (imprimir) algumas informações do arquivo .enw (endnote). Olhem meu código em anexo; e também anexei um exemplo de arquivo.enw<br> <br>Dúvida 1: está dando essa mensagem de erro ao 'compilar':<br>
refer: l.1: line outside record: <<br> <br>Dúvida 2: Neste trecho de código:<br> my @authors = $ref->author; <br> my $lastAuthor = $ref->author;<br> my $firstAuthor = $ref->author;<br>Está correto isso para eu 'pegar' e imprimir somente o primeiro e o último autor da lista de autores?<br>
</div></div></td></tr></tbody></table></blockquote><div>Se o metodo author retorna um array com varios autores, nao acredito que isto va funcionar (posso estar errado), mas o que tenho certeza que funcionaria e :<br><br>my @authors = $ref->author;<br>
my $lastAuthor = @authors[ (scalar @authors) - 1 ] ; # este exemplo e mais didatico mesmo, scalar @authors retorna o tamanho do array, como ele comeca a contar do zero, subtraia um e tera o ultimo elemento<br>my $firstAuthor = @authors[0]; # obviamente o primeiro elemento<br>
<br>No $lastAuthor achei que o codigo estava grande demais para Perl, e incrivel, sempre tem como fazer aquilo de um jeito minimo, fui procurar e achei o seguinte :<br><br>@authors[-1] ja te retorna o ultimo, bem como @authors[-2] o penultimo e por ai vai<br>
<br>Abracos<br><br> </div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><table border="0" cellpadding="0" cellspacing="0"><tbody><tr><td style="font-family: inherit; font-style: inherit; font-variant: inherit; font-weight: inherit; font-size: inherit; line-height: inherit; font-size-adjust: inherit; font-stretch: inherit;" valign="top">
<div><div> <br>Aguardo resposta.o <br>Obrigada a todos!!<br><font color="#888888">Juliana<br></font><div class="hm"> </div></div><div class="hm">
<div> </div></div></div></td></tr></tbody></table><div class="hm"><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/" target="_blank">Top 10</a> - <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.maisbuscados.yahoo.com/celebridades/" target="_blank">Celebridades</a> - <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.maisbuscados.yahoo.com/m%C3%BAsica/" target="_blank">Música</a> - <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.maisbuscados.yahoo.com/esportes/" target="_blank">Esportes</a></div>
<br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><br>