Amigo,<div>em perl, seria bem mais interessante você utilizar um HASH (ou como eu sou viciado, HASHREF)<br><br></div><div>Hash é uma lista, mas no lugar de indexs, você tem strings.</div><div>Por exemplo:</div><div>$foo = {</div>
<div> eu_sou_uma_chave => 'eu_sou_o_valor'</div><div>};</div><div><br></div><div>Então, voce pode utilizar-se do push de uma array, monta assim, uma array de hash:</div><div><br></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; ">open(my $frases, "set.txt") or die "Nao foi possivel abrir o arquivo: $!";<br>
<br>my @vetor = ();<br>my $pontuacao=0;<br><br><br>while (my $linha = <$frases>) {</span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "> </span><span class="Apple-style-span" style="font-family: monospace; font-size: 13px; white-space: pre; ">chomp(</span><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; ">$linha); # tira o fim de linha </span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "> push(@vetor, {</span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "> linha => $linha,</span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "> num_linha => $.,</span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "> pontuacao => $pontuacao</span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "> }); # se vc nao passar linha, vai pro $_<br>}<br><br></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "># aqui talvez tenha um codigo que vai mudar a pontuacao, correto? pois a pontuacao de todos esta zerada!<br>
<br></span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "># e aqui mostra na tela<br>for my $item (@vetor){<br> print "$item->{num_linha}: </span><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; ">$item->{linha} - </span><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; ">$item->{pontuacao}</span><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; ">\n";</span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; "><br>}</span></div><div><br></div><div>----------------------------</div><div>Minhas considerações:</div><div>você não deve sempre ler um arquivo e jogar numa array,</div>
<div>se for fazer isso, você acaba jogando todo o arquivo na memoria, e</div><div>se o arquivo tiver uns 100~ 300 mb isso não é muito legal!</div><div><br></div><div><br><div class="gmail_quote">2010/12/7 Juliana <span dir="ltr"><<a href="mailto:julianalduque@yahoo.com.br">julianalduque@yahoo.com.br</a>></span><br>
<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">Olá amigos da lista,<br>
<br>Estou com dificuldade em implementar um código utilizando um vetor com 2 dimensões.<br><br>Poderiam me dar uma dica de onde está o erro?<br>O código segue abaixo:<br><br><br>#abre arquivo de frases, uma frase por linha: frase1: xxxx; frase2: yyyyyy; frase3: zzzzz<br>
open(my $frases, "set.txt") or die "Nao foi possivel abrir o arquivo: $!";<br><br><br>my @vetor=$frases;<br>my $pontuacao=0;<br>my $i=0;<br><br>#insiro a frase a pontuacao em um vetor de duas dimensoes: posicao frase e posicao pontuacao<br>
while (<$frases>) {<br>$vetor[$i] = [$frases, $pontuacao];<br>$i++;<br>}<br><br>#imprimir todas as frases seguido de sua pontuacao : print $vetor->[$i], "=", $vetor->[$i], "\n"; ????<br>for my $vetor (@vetor){<br>
print $vetor->[0], "=", $vetor->[1], "\n";<br><br>}<br><br>Aguardo
contato.<br><br>Obrigada!<br><br>Abraços<br>Juliana<br><br></td></tr></tbody></table><br>
<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><br clear="all"><br>-- <br>Renato Santos<br><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a><br>
</div>