Script que remove palavras de um arquivo.

Publicado por Sávio Reis Gonçalves 23/02/2005

[ Hits: 5.686 ]

Homepage: www.facebook.com/savinhoreis

Download remove1.txt




Este script remove strings de um arquivo.

  



Esconder código-fonte

#!/usr/bin/perl                           #
#Remove String                            #
#by: eminem1000                           #
#simples script para remover palavras     #
# de uma arquivo                          #
#                                         #
###########################################

$x = $ARGV[0]; 
$st = $ARGV[1];
if(not $ARGV[0]){ 
print "\n\nUse perl $0 Arquivo.txt palavra\n\n";
}
else
{
open(F, "<$x") || die "nao axei o file"; 
@co = <F>; 
$sac = "@co"; 
$sac =~ s/$st//gi; 
print  "$sac\n"; 
close(F);
open(G, ">$x") || die "nao abri o segundo"; 
print G "$sac\n"; 
close(G); 
print "\n \n [+]  OK,removido [+]\n\n"; 
} 

exit;

Scripts recomendados

script para localizar conteudo de arquivo

Rsync e Perl: Sincronização de arquivos com gestão de backup incremental integrada

Conversão de textos UTF-8 para ISO8859-1

Inserindo sites em Lista do Squid

Usando ARGV como login


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts