[FUG-BR] Ajuda em script perl

[Fabio]

olá alexandre
 
ficou assim:
 
Tenta algo assim:

for ( my $i=0; $i <= $#matriz; $i++ ) {
  if ( $matriz[$i] =~ /$CIDADE/ ) {
     print "posicao: $i\n";
     last;
  }
}
Mas a posicao sempre é zero (0).
E a cidade nao está na posicao zero.
Algo errado?
Grato


--- Em sáb, 19/9/09, Alexandre Biancalana <biancalana em gmail.com> escreveu:


De: Alexandre Biancalana <biancalana em gmail.com>
Assunto: Re: [FUG-BR] Ajuda em script perl
Para: "Lista Brasileira de Discussão sobre FreeBSD (FUG-BR)" <freebsd em fug.com.br>
Data: Sábado, 19 de Setembro de 2009, 16:55


Tenta algo assim:

for ( my $i=0; $i <= $#sua_matriz $i++ ) {
  if ( $sua_matriz[$i] =~ /$oq_vc_procura/ ) {
     print "posicao: $i\n";
     last;
  }
}

2009/9/19 Fabio <binho62 em yahoo.com.br>:
> Olá amigos, boa tarde.
>
> Preciso criar um script em perl para fazer uma busca dentro de um arquivo.txt.
> Esse arquivo.txt eu guardei numa matriz (@minhamatriz).
> Dentro dessa matriz eu faço uma busca por palavra utilizando o foreach e grep, só que não consegui saber qual posição da matriz essa palavra encontrada está.
>
> Como faz isso?
>
> Obrigado, Fábio.
>
>
>      ____________________________________________________________________________________
> Veja quais são os assuntos do momento no Yahoo! +Buscados
> http://br.maisbuscados.yahoo.com
> -------------------------
> Histórico: http://www.fug.com.br/historico/html/freebsd/
> Sair da lista: https://www.fug.com.br/mailman/listinfo/freebsd
>
-------------------------
Histórico: http://www.fug.com.br/historico/html/freebsd/
Sair da lista: https://www.fug.com.br/mailman/listinfo/freebsd



      ____________________________________________________________________________________
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com