Substituir palavras em arquivos
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 13.938 ]
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
Como agendar um backup automático do PostgreSQL no Cron evitando o problema de senha
Como preparar o Vim/Neovim para corrigir ortografia em português
Dark Web e Malwares na internet, quanto custa?
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Como verificar o hash de um arquivo baixado da Internet e como criar um hash
Debian 12 - IPTABLES - removendo NFTABLES
OverWatch 2 - Abrindo portas do jogo no Iptables.
Como instalar o adaptador wifi USB Intelbras ACtion A1200 no Linux Mint
Como normalizar seus arquivos MP3 para que fiquem no mesmo volume
Como Incorporar o Áudio no Executável ? (1)
O que você está ouvindo agora? [2] (130)
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba
[Shell Script] Tire screenshots com Scrot facilmente com Zscrot
[Shell Script] DioPSI - Script multidistro para instalar programas
[Shell Script] ARS Vídeos - Cortador de vídeos e webcam shooter