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;

Upload de múltiplos arquivos para Imageshack.us

Postando mensagem no Facebook com Perl

API do Bing para traduzir textos

Script para fazer buscas no arquivo de logs do squid

PDF completo com todas as páginas do Diário Oficial do Estado de Goiás