script para localizar conteudo de arquivo

Publicado por Caio Henrique de Oliveira 09/09/2004

[ Hits: 9.443 ]

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

Journaling de arquivos

Script que remove palavras de um arquivo.

Processa todos os SlackBuild's

move.pl


  

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