[FUG-BR] Ajuda em script perl

[Hitch Cock]

tente isso caro fabio

% cat arquivo.txt
paris
roma
milao
juiz de fora
sao paulo
barretos
belo horizonte
juquetinga
jaguaritingua

#!/usr/bin/perl -w
use strict;

open(ARQUIVO,"arquivo.txt") or die "Can't open file: $!";

my @matriz = <ARQUIVO>;
my $linha = 1;
my $procura = "sao paulo";

foreach (@matriz) {
        if($_ =~ /$procura.*/) {
                print "$procura esta na linha $linha\n";
                last;
        }
        $linha++;
}

close(ARQUIVO);

% perl test.pl
sao paulo esta na linha 5

At,
Hitch

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
>