Automatizando o envio de arquivo p/ o FTP !

Publicado por Denis Zanin 07/04/2003

[ Hits: 11.455 ]

Download ftp.pl




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 ! ;)

  



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;

Scripts recomendados

Index Location

Sarg Semanal

VimeoTheSapo -Baixe videos do Vimeo e do sapo

Obtendo o IP público (Internet) usando o Perl

Tweetin - Poste tweets pelo terminal


  

Comentários
[1] Comentário enviado por gpr.ppg.br em 14/12/2005 - 19:01h

como faço para baixar tudo de uma pasta, arquivos e subpastas??? no ftp em modo texto ??? pois eu usei o comando: mget *.* e só baixa os arquivos.

[2] Comentário enviado por Rodrigo... em 05/07/2006 - 15:11h

usei este script ai, mais tah sempre dando erro na hora de enviar o arquivo..e não mostra qual o erro

[3] Comentário enviado por crock-linux em 16/10/2006 - 15:26h

Ola amigo

bom script...


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts