Troca palavras em Perl
Publicado por C00L3R_ 20/08/2008
[ Hits: 8.267 ]
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
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
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Não consigo acessar os modos de desempenho (2)
Ubuntu — tentando iniciar o windows? (0)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba