Automatizando o envio de arquivo p/ o FTP !
Publicado por Denis Zanin 07/04/2003
[ Hits: 11.472 ]
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;
Buscar Traduções no Google Translate
Obtendo a temperatura com Perl
Avisar por e-mail se o IP da conexão ADSL mudar
Localizador de palavras em arquivos nao binarios
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Alguém pode me ajudar porfavor como executar comandos ao iniciar no i3... (2)
Debian Bookworm para a versão beta Debian 13 Trixie (2)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (21)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba