RES: Re[2]: [shell-script] Procurando palavra no arquivo

[Julio Cezar Neves - DATAPREVRJ]

Viktor,
por favor leia o regulamento da lista que por acaso está escrito bem abaixo
da sua tag line. Ou melhor, para não te dar este trabalho vou reproduzi-la:

---------------------------------------------------------------------
Esta lista não admite a abordagem de outras liguagens de programação, como
perl, C etc. Quem insistir em não seguir esta regra será moderado sem prévio
aviso.
---------------------------------------------------------------------

Assim sendo amigo, sou obrigado a informá-lo que "Quem insistir em não
seguir esta regra será moderado sem prévio aviso.". Portanto não insista, tá
bem?

Desculpe-me Viktor, este não é o meu estilo, mas a nossa lista é muito boa e
não podemos deixá-la descambar para o impalpável.

[ ]s,
Julio Cezar Neves
- Programa de Software Livre -
Tel:+55 21 2528-7070 / +55 21 8112-9988
Fax: +55 21 2528-7646
mailto:address@hidden


| -----Mensagem original-----
| De: Viktor Mota [mailto:address@hidden]
| Enviada em: segunda-feira, 24 de maio de 2004 10:26
| Para: stbarreto
| Assunto: Re[2]: [shell-script] Procurando palavra no arquivo
| 
| 
| Olá Pessoal,
| 
| s> De:"Jorge Pereira" address@hidden
| 
| >>  find. -type f -exec grep -l "Server at" {} \;
| >> 
| >> Augusto, Alexandre escreveu:
| >> > Alguem se lembra qual é a sintaxe que eu uso pra 
| procurar uma palavra
| >> > dentro de um arquivo em todo o diretório?
| >> > estou tentando assim:
| >> > find. -type f -exec fgrep "Server at" {} \;
| >> > mas ele acha e não mostra o arquivo ..
| 
| Qto  a  procura  de  palavras  em arquivo, tenho um script bacana quer
| quero compartilhar com o pessoal!
| 
| ======================================================================
| #!/usr/bin/perl
| 
| open(FIND, "find . -print |") || die "Nao pode rodar ACHA: $!\n";
| 
| FILE:
| while ($filename = <FIND>) {
|   chop $filename;
|   next FILE unless -T $filename;
|   if (!open(TEXTFILE, $filename)) {
|     print STDERR "Nao pode abrir $filename -- continuando ...\n";
|     next FILE;
|   }
|   while (<TEXTFILE>) {
|     foreach $word (@ARGV) {
|       if (index($_, $word) >= 0) {
|         print $filename, "\n";
|         next FILE;
|       }
|     }
|   }
| }
| ======================================================================
| 
| []s
| Viktor Mota
| address@hidden
| 
| --- tagline ---
| Eu tinha uma vida antes... Agora eu tenho um computador e um modem. 
| 
| 
| 
| 
| ---------------------------------------------------------------------
| Esta lista não admite a abordagem de outras liguagens de 
| programação, como perl, C etc. Quem insistir em não seguir 
| esta regra será moderado sem prévio aviso.
| ---------------------------------------------------------------------
| Sair da lista: address@hidden
| ---------------------------------------------------------------------
| Esta lista é moderada de acordo com o previsto em 
http://www.listas-discussao.cjb.net
---------------------------------------------------------------------
 
Links do Yahoo! Grupos
Para visitar o site do seu grupo, acesse:
 http://br.groups.yahoo.com/group/shell-script/

Para sair deste grupo, envie um e-mail para:
 address@hidden

O uso que você faz do Yahoo! Grupos está sujeito aos:
 http://br.yahoo.com/info/utos.html