script para localizar conteudo de arquivo

Publicado por Caio Henrique de Oliveira 09/09/2004

[ Hits: 9.442 ]

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

Alterar senha no shadow

Remove comentarios de scripts

Compilar e mover

Processa todos os SlackBuild's

Apaga fila do Exim...


  

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