[FUG-BR] Ajuda em script perl
Hitch Cock
net.hitch.adm em gmail.com
Sábado Setembro 19 23:52:51 BRT 2009
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
>
Mais detalhes sobre a lista de discussão freebsd