Troca palavras em Perl

Publicado por C00L3R_ 20/08/2008

[ Hits: 7.664 ]

Homepage: http://bugsec.com.br

Download troca.pl




Troca todas as palavras num texto por outra palavra determinada pelo usuário.

Muito bom para estudo em regex...

  



Esconder código-fonte

#!/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>
===================================
}}

Scripts recomendados

Agenda em Perl

Script que mostra a temperatura do processador

data e hora

Ircbot

Substituir palavras em arquivos


  

Comentários
[1] Comentário enviado por lm.moreira em 21/08/2008 - 16:50h

Opa, legal o programa parabéns,

como vc conseguiu fazer o perl identificar, e escrever acentos o cedilha (ç) etc.
aqui no meu ele só solta caracteres estranhos


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts