Troca palavras em Perl
Publicado por C00L3R_ 20/08/2008
[ Hits: 8.498 ]
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
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
Organizando seus PDF com o Zotero
Erro no realm join [Resolvido]
Um programa para baixar vídeos: Parabolic
Como Definir o Painel Principal em Múltiplos Monitores no Linux Mint
Sempre que vou baixar algum pacote acontece o erro dpkg (7)
como instalo panfrost-dri e o driver panfrost fork , ou panfrost (12)