[SP-pm] Ajuda com vetor de 2 dimensões

[Juliana]

Olá amigos da lista,

Estou com dificuldade em implementar um código utilizando um vetor com 2 dimensões.

Poderiam me dar uma dica de onde está o erro?
O código segue abaixo:


#abre arquivo de frases, uma frase por linha: frase1: xxxx; frase2: yyyyyy; frase3: zzzzz
open(my $frases, "set.txt") or die "Nao foi possivel abrir o arquivo: $!";


my @vetor=$frases;
my $pontuacao=0;
my $i=0;

#insiro a frase a pontuacao em um vetor de duas dimensoes: posicao frase e posicao pontuacao
while (<$frases>) {
$vetor[$i] = [$frases, $pontuacao];
$i++;
}

#imprimir todas as frases seguido de sua pontuacao : print $vetor->[$i], "=", $vetor->[$i], "\n"; ????
for my $vetor (@vetor){
print $vetor->[0], "=", $vetor->[1], "\n";

}

Aguardo contato.

Obrigada!

Abraços
Juliana




      
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20101206/d454c0d2/attachment.html>