Script de Perl com a intencao de mandar arquivos para o servidor sem necessariamente ter que digitar os comandos de FTP !
Ele automatiza a tarefa de um webmaster !! Script numa versao bem basica !
Pretendo ainda, melhora-lo muito mais !!

Valeusss ! ;)

• Download ftp.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl -w
#+++++++++++++++++++++++++++++++++++++++++++
#+ Script de Perl com a intencao de mandar arquivos 
#+ para o servidor sem necessariamente ter que digitar
#+ todos os comandos... ! Resumindo: criei esse 
#+ script para automatizar as tarefas diarias de um 
#+ webmaster !                                                                               
#+                                                  
#+ E-mail: virose@bol.com.br                                                                        
#+    * Em breve pretendo melhorar esse script *    
#+++++++++++++++++++++++ THANKS ;) ++++++++++

use Net::FTP;
my $filename;

$hostname='DEFINA AQUI O HOSTNAME';
$username='DEFINA O USUARIO';
$password='DEFINA O PASSWORD';

print "\n\n                   #########################################\n";
print "                   TENTANDO CONECTAR-SE EM $hostname \n";
print "                   USER: $username  PASS: $password \n";
print "                   #########################################\n";

$ARGC=@ARGV;
if ($ARGC < 1){
print "\nCOMO USAR: $0 <arquivo a ser enviado>\n\n";
exit;
}

$home='/';
$filename=$ARGV[0];

print "\n. . . .:. Conectandoooooo .:. . . . \n";
$ftp=Net::FTP->new($hostname);
$ftp->login($username, $password) or die "Error $! ";
print "  . . . .:. ... . C O N E C T A D O . ... .:. . .. \n";
print "  . . . .:. Enviando o arquivo $filename  .:. . . . \n";
$ftp->put($filename) or die "Error $! ";
print ". . . . .:. Arquivo $filename enviado com sucesso .:. . . . \n";
print ". . . . . .:. Saindooooooooooooo do FTP........ .:. ... \n";
$ftp->quit;
print " . . . . . . .:. DESCONECTADO .:. . . . . . . \n\n\n";
exit;

Script para fazer buscas no arquivo de logs do squid

Synner Novo Sys(TCP) Flooder em Perl

Postando mensagem no Facebook com Perl

Localizador de palavras em arquivos nao binarios

Pesquisar palavras no Diário Oficial da União