Troca palavras em Perl
Publicado por C00L3R_ 20/08/2008
[ Hits: 8.530 ]
Homepage: https://github.com/CoolerVoid
Troca todas as palavras num texto por outra palavra determinada pelo usuário.
Muito bom para estudo em regex...
#!/usr/bin/perl $sis="$^O"; unlink "trocado.txt"; if ($sis eq windows) { $cmd="cls"; } else { $cmd="clear"; } eval; inicio: print `$cmd`; header(); print "qual aquivo em txt para usar\?\n"; $text=<STDIN>; chomp $text; open(TX,"<","$text")||die"arquivo $text com problemas"; print "qual palavra vai substituir\?\n"; $let=<STDIN>; chomp $let; print "substituir $let por \?\n"; $new=<STDIN>; chomp $new; if($new eq $let) { print "palavra nao pode ser igual\n"; sleep 2; goto inicio;} else { @texto=<TX>; close(TX); print "iniciando troca...\n\n"; foreach (@texto) { $_ =~ s/$let/$new/; print "$_"; open (OUT, ">>trocado.txt"); print OUT "$_"; close(OUT); } print "\nvoltando..\npara sair ctrl+c\n"; sleep 5; goto inicio; } sub header{ print q{ =================================== Simples REGEX Troca palavras =================================== Coded By C00L3R_ =================================== http://botecounix.com.br =================================== para sair <Ctrl+C> =================================== }}
Substituir palavras em arquivos
Script que mostra a temperatura do processador
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Linux Debian 11 Bullseye Reiniciando Sozinho (1)
Bora fazer um teste? mbti (11)
Possível Migração de windows para linux ???? (pc da empresa) (2)