<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;"><DIV>Olá Luis.</DIV>
<DIV>Fico agradecida pela sua resposta.</DIV>
<DIV>Realmente reparei que vem essa linha antes automaticamente quando faço o download de qualquer citação na web.</DIV>
<DIV>A leitura do arquivo deveria começar sempre pelo início, que pelo que percebi sempre é '%0'.</DIV>
<DIV>Teria como tratar isso?</DIV>
<DIV> </DIV>
<DIV>Obrigada</DIV>
<DIV>Juliana</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><BR><BR>--- Em <B>sáb, 7/11/09, Luis Motta Campos <I><luismottacampos@yahoo.co.uk></I></B> escreveu:<BR></DIV>
<BLOCKQUOTE style="BORDER-LEFT: rgb(16,16,255) 2px solid; PADDING-LEFT: 5px; MARGIN-LEFT: 5px"><BR>De: Luis Motta Campos <luismottacampos@yahoo.co.uk><BR>Assunto: Re: [SP-pm] Auxilio em código<BR>Para: saopaulo-pm@mail.pm.org<BR>Data: Sábado, 7 de Novembro de 2009, 12:04<BR><BR>
<DIV class=plainMail>Juliana wrote:<BR>> Olá lista Perl! bom dia!<BR>> Preciso de uma dica de vocês..<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>> Dúvida 1: está dando essa mensagem de erro ao 'compilar':<BR>> refer: l.1: line outside record: <<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><BR>Juliana,<BR><BR>O seu programa não é robusto o bastante para suportar<BR>dados mal-formados. Os seus dados, por sua vez, estão muito mal<BR>formados: a primeira linha do arquivo 4.enw
contém<BR>"<\x{9}\x{9}\x{9}\x{9}\x{9}\x{9}\x{9}\x{9} \x{9}\x{9}\x{9}>", que<BR>não é exatamente o que o módulo Text::Refer espera como entrada de<BR>dados. Assim, como nem o seu programa nem o módulo que você usa<BR>verificam seus dados, erros inesperados acontecem sempre que você<BR>alimenta dados ruins para o seu programa.<BR><BR>Para resolver o problema e fazer seu programa funcionar corretamente,<BR>eu removi a primeira linha do arquivo à mão. Uma solução mais robusta<BR>incluiria algum tipo de conferência de syntaxe (os termos técnicos são<BR>"tokenization" e "parsing") antes de qualquer tentativa de processar o<BR>arquivo.<BR><BR>Sobre a forma correta de imprimir o primeiro e o último autor: sua tentativa é estranha, já que você faz chamadas demais para $ref->author (que eu presumo ser uma função do Text::Refer que retorna uma lista de autores).<BR><BR>Para obter o primeiro e o último elemento de uma lista em Perl
existem muitas formas, mas a minha favorita é esta:<BR><BR>my ( $first, $last ) = ( $ref->author )[0,-1];<BR><BR>Espero que isso ajude.<BR>Putamplexos<BR>--<BR>Luis Motta Campos is a software engineer,<BR>Perl junkie, foodie and amateur photographer.<BR><BR><BR><BR> <BR>_______________________________________________<BR>SaoPaulo-pm mailing list<BR><A href="http://br.mc562.mail.yahoo.com/mc/compose?to=SaoPaulo-pm@pm.org" ymailto="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></DIV></BLOCKQUOTE></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>