Automatizando o envio de arquivo p/ o FTP !
Publicado por Denis Zanin 07/04/2003
[ Hits: 11.890 ]
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;
Synner Novo Sys(TCP) Flooder em Perl
Avisar por e-mail se o IP da conexão ADSL mudar
Tweetin - Poste tweets pelo terminal
Script para fazer buscas no arquivo de logs do squid
Atualizações de Apps, Desktop e Kernel agitam o ecossistema Linux nesta terça-feira
Miyoo Mini Plus + Onion OS (Linux)
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Como listar os arquivos em "bloquin... [RESOLVIDO] (5)
Como colocar atalho para uma pasta na área de trabalho do Ubuntu 24.04... (1)
Como vencer a procrastinação? (8)
Adicional de convivdado em linux somente linha de comando (3)