Script que procura uma palavra em um arquivo.
Publicado por Sávio Reis Gonçalves 22/02/2005
[ Hits: 9.432 ]
Homepage: www.facebook.com/savinhoreis
Este Script procura uma palavra em um arquivo.
#!/usr/bin/perl #Este script procura por uma palavra em um arquivo #EMINEM1000 #2005 print " \n \n"; print "use $0 arquivo.txt palavra\n \n"; $nome_a = $ARGV[0]; $palavra_c = $ARGV[1]; print "Voce esta procurando por $palavra_c no arquivo $nome_a\n\n"; sleep(3); $cont = 0; &abre_arq($nome_a); &procura($palavra_c); print "encontrei $cont palavra(s) no $nome_a"; exit; sub abre_arq{ open(ARQ, "<$nome_a") || die "error Voce nao indicou o arquivo \n"; @conteudo = <ARQ>; close(ARQ); } sub procura{ foreach $linha(@conteudo){ $cont++while $linha =~ /$_[0]/gi; } }
Listar arquivos de um diretório.
Script para adicionar sites ao Squid
Inserindo sites em Lista do Squid
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Comandos no NixOS não funcionam (0)
De volta para o futuro - ou melhor, para o presente (23)
Plasma 6 com partes em inglês (0)