Automatizando o envio de arquivo p/ o FTP !
Publicado por Denis Zanin 07/04/2003
[ Hits: 11.603 ]
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;
Obtendo o IP público (Internet) usando o Perl
Descobrir operadora de celular
Agora temos uma assistente virtual no fórum!!! (246)
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Flatpak: remover runtimes não usados e pacotes
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Como eu faço para ativar o sistema de gestos do mousepad? (4)
NGNIX - Aplicar SNAT para evitar roteamento assimetrico (13)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta