Script que procura uma palavra em um arquivo.
Publicado por Sávio Reis Gonçalves 22/02/2005
[ Hits: 9.294 ]
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; } }
Rsync e Perl: Sincronização de arquivos com gestão de backup incremental integrada
Listar arquivos de um diretório.
Inserindo sites em Lista do Squid
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando Discord no Debian 12
Instalando e usando o Dconf Editor, o "regedit" para Linux
Jogar jogos do Win 10 no Ubuntu (11)
Dificuldade em ler binário (19)
Sistema da Coréia do Norte - Red Star OS (78)