script para localizar conteudo de arquivo

Publicado por Caio Henrique de Oliveira 09/09/2004

[ Hits: 9.359 ]

Homepage: caioholiveira.com.br

Download acha




Este script serve para localizar conteudo de arquivo.
Não e de minha autoria mas acho o mesmo muito util.

  



Esconder código-fonte

#!/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;
      }
    }
  }
}

Scripts recomendados

Apaga fila do Exim...

Inserindo sites em Lista do Squid

Contagem de linhas em Perl (= wc -l)

Script que procura uma palavra em um arquivo.

Journaling de arquivos


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts