Troca palavras em Perl

Descrição

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>
===================================
}}