<table cellspacing="0" cellpadding="0" border="0" ><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 (&lt;$frases&gt;) {<br>$vetor[$i] = [$frases, $pontuacao];<br>$i++;<br>}<br><br>#imprimir todas as frases seguido de sua pontuacao : print $vetor-&gt;[$i], "=", $vetor-&gt;[$i], "\n"; ????<br>for my $vetor (@vetor){<br>print $vetor-&gt;[0], "=", $vetor-&gt;[1], "\n";<br><br>}<br><br>Aguardo
 contato.<br><br>Obrigada!<br><br>Abraços<br>Juliana<br><br></td></tr></table><br>



      &nbsp;