Automatizando o envio de arquivo p/ o FTP !
Publicado por Denis Zanin 07/04/2003
[ Hits: 11.735 ]
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;
IPloc - Informações e localização de um determinado endereço IP
API do Bing para traduzir textos
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Muitas dificuldades ao instalar distro Linux em Notebook Sony Vaio PCG-6131L (VPCEA24FM)
Slackpkg+ (Slackpkg Plus) está de volta!
Como dividir duas janelas igualmente e lado-a-lado na sua tela
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Pedagogia no brasil não passa de alfabetização por m4sturbação mental ... (2)
compilação samba 4.22 rock linux 9.5 (3)
Erro de segmentação «Segmentation fault (core dumped)» ao retornar obj... (7)