Pessoal,

Há um tempo criei dois scripts em Perl que realizam buscas em arquivos. Essa é uma tarefa simples, porém muitas vezes executada. Estou usando bastante no meu dia a dia e recebi um bom feedback do time que faço parte, então gostaria de compartilhar com vocês também.

Basicamente são dois arquivos: o beater.pl, que realiza a busca dentro do arquivo por um padrão passado, e outro chamado sentinel.pl, que realiza buscas no nível do diretório. Quando o sentinel encontra um padrão de arquivo ele chama o beater para buscar dentro do arquivo.

A instalação é simples, dentro do diretório raiz do projeto, é só executar o seguinte comando como root:

# ./install

O código fonte pode ser obtido no seguinte endereço:

• http://github.com/diegorubin/FrontFile

A documentação está bem completa, com direito até a man pages.

Um exemplo de como pode ser usado:

sentinel --directory . --patterns test --extensions .pl -v

No comando acima ele irá buscar o padrão 'test' em todos os arquivos que contenham .pl no diretório atual e seus sub-diretórios.

No repositório também há uma gui escrito em c e gtk.

Esse projeto é livre, e quem quiser ajudar a desenvolvê-lo e só forkear o repositório no github.