Script que procura uma palavra em um arquivo.
Publicado por Sávio Reis Gonçalves 22/02/2005
[ Hits: 9.278 ]
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; } }
Eliminando caracteres indesejados
FTP – Script para adicionar e remover usuários via WEB
Conversão de textos UTF-8 para ISO8859-1
Script para adicionar sites ao Squid
Inserindo sites em Lista do Squid
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Não consigo acessar os modos de desempenho (0)
Problema com alias usando locate (4)
Criar uma base de reconhecimento de HW no VOL (11)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba