script para localizar conteudo de arquivo

Publicado por Caio Henrique de Oliveira 09/09/2004

[ Hits: 9.361 ]

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

Shadow Post It

FTP – Script para adicionar e remover usuários via WEB

Script para adicionar sites ao Squid

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