Troca palavras em Perl
Publicado por C00L3R_ 20/08/2008
[ Hits: 8.514 ]
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> =================================== }}
Script que mostra a temperatura do processador
Substituir palavras em arquivos
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (10)
Será que eu deveria apreender C/C++ para desenvolver para Linux? (4)