script para localizar conteudo de arquivo

Publicado por Caio Henrique de Oliveira 09/09/2004

[ Hits: 9.393 ]

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

Contagem de linhas em Perl (= wc -l)

Script que remove palavras de um arquivo.

Inserindo sites em Lista do Squid

Script que procura uma palavra em um arquivo.

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


  

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