Automatizando o envio de arquivo p/ o FTP !
Publicado por Denis Zanin 07/04/2003
[ Hits: 11.846 ]
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 ! ;)
#!/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;
SMTP Mass Mail - Enviando e-mails em massa para vários endereços a partir de um servidor SMTP
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Dica para encontrar diversos jogos Indies criativos
Instalando Discord no Debian 13
Instalar driver Nvidia no Debian 13
Redimensionando, espelhando, convertendo e rotacionando imagens com script
Software livre - será que eu estou tão errado assim? (10)
Boot do PosRog so funciona em notebook (1)