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
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 binh...@yahoo.com.br:
Olá amigos, boa tarde.
Preciso criar um script em perl para fazer uma busca dentro de um arquivo.txt.
Biancalana biancal...@gmail.com escreveu:
De: Alexandre Biancalana biancal...@gmail.com
Assunto: Re: [FUG-BR] Ajuda em script perl
Para: Lista Brasileira de Discussão sobre FreeBSD (FUG-BR)
freebsd@fug.com.br
Data: Sábado, 19 de Setembro de 2009, 16:55
Tenta algo assim:
for ( my $i=0; $i
sáb, 19/9/09, Alexandre Biancalana biancal...@gmail.com escreveu:
De: Alexandre Biancalana biancal...@gmail.com
Assunto: Re: [FUG-BR] Ajuda em script perl
Para: Lista Brasileira de Discussão sobre FreeBSD (FUG-BR)
freebsd@fug.com.br
Data: Sábado, 19 de Setembro de 2009, 16:55
Tenta algo
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)
5 matches
Mail list logo
