Substituir palavras em arquivos
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 13.956 ]
Homepage: https://www.instagram.com/alexabolada/
Script usado para fazer a substituição de todas as ocorrências de uma "string A" por uma "string B" numa lista de arquivos informada. Exemplo:
./substituir.pl Liuxn Linux *.txt
#!/usr/bin/perl ###################################################### # Programado por Fábio Berbert de Paula # <fabio@vivaolinux.com.br> # www.vivaolinux.com.br # ###################################################### if ($#ARGV < 2) { print <<FIM; -=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Use: $0 <palavra-alvo> <nova-palavra> [lista de arquivos...] Onde <palavra-alvo> é a palavra a ser substituída, <nova-palavra> é a palavra que substituirá a ocorrência da palavra-alvo e [lista de arquivos...] é opcional, podendo conter máscaras como *.txt, por exemplo. Se a lista de arquivos não for informada, todos os arquivos do diretório serão processados. -=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- FIM exit(1); } system("/usr/bin/clear"); # importe as palavras a serem manipuladas $velha = shift(); $nova = shift(); print "Substituindo todas as ocorrências "; print "de \n\"$velha\" para \"$nova\"...\n\n"; # importe a lista de arquivos a ser processo $cont = 0; while ($arq[$cont++] = shift()) {next;} if ($cont == 0) {$arq[$cont] = "*";} # para cada arquivo ou máscara... foreach $indice (0..$#arq) { $arquivos = `/bin/ls -d $arq[$indice]`; chop($arquivos); @arquivos = split(/\n/,$arquivos); # ... processe um arquivo individualmente foreach $arquivo (@arquivos) { # se o arquivo existe ;o) if (-f $arquivo) { print "Processando $arquivo...\n"; system("/bin/sed -e \"s/$velha/$nova/g\" $arquivo > $arquivo.tmp"); system("/bin/mv $arquivo.tmp $arquivo"); print "... [ OK ]\n\n"; } } }
Script que mostra a temperatura do processador
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
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
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Sistema da Coréia do Norte - Red Star OS (12)
Acesso a internet servidor virtualizado (11)
Cant ´t attach process a10c: error 0 Wine fecha (3)
Dongle Bluetooth 5.0 não funciona no Pop Os 22.04 (4)
redirecionando saida de comando touch para o AWK[AJUDA] (17)