Troca palavras em Perl
Publicado por C00L3R_ 20/08/2008
[ Hits: 8.291 ]
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
Deixando o Gnome bonitão em qualquer distribuição
Como ativar o módulo de cancelamento de ruído no Pipewire
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Curiosidade sobre DOOM Guy e Isabelle de Animal Crossing
Inicializando servidor Ubuntu na AWS e rodando apache em Container
Checar seu IP externo no terminal
Como fazer um pendrive butável dar boot no VirtualBox
GRUB do Debian 12 não detecta segundo Linux instalado em partição BTRF... (30)
Convertendo valores em bytes maiores que 1YB[DUVIDA] (4)
executar arquivo como programa pelo terminal linux ubuntu (6)