Capturar imagens de um site
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 10.384 ]
Homepage: https://fabio.automatizando.dev
Script usado para fazer o download usando o wget de todas as imagens de determinada URL. Por exemplo, se você estiver visitando um álbum de fotos e deseja salvar as 50 fotos que aparecem numa única página, ao invés de clicar 50 vezes com o mouse e escolher "Salvar como ...", você executa o getImages.pl
#!/usr/bin/perl # +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # getImages.pl # # Script usado para fazer o download usando o wget de todas as # imagens de determinada URL. Por exemplo, se você estiver visitando # um álbum de fotos e deseja salvar as 50 fotos que aparecem numa # única página, ao invés de clicar 50 vezes com o mouse e escolher # "Salvar como ...", você executa o getImages.pl # # # Programado por Fábio Berbert de Paula <fabio@vivaolinux.com.br> # Na web em: www.vivaolinux.com.br # # Rio de Janeiro, 05 de Agosto de 2002 # +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # carregar os módulos necessários use strict; use IO::Socket; # ----------------------------------- # configure as variáveis abaixo my $site = "www.enderecodosite.com"; my $url = "/nomedapagina.html"; # ----------------------------------- # vou abrir uma conexão socket com o site e baixar o código HTML da página my $post = new IO::Socket::INET-> new ( PeerAddr => $site, PeerPort => "80", Proto => "tcp", Type => SOCK_STREAM, Timeout => "30" ); # requisitar a URL em questão my $header = "GET $url HTTP/1.0\r\nHost: $site\r\n\r\n"; $post->send($header); while (my $saida = <$post>) { # processar cada tag <img src="..."> .... if ($saida =~ /img src=\"(.*)\"/i) { my $img = $1; $img =~ s/\".*$//; $img =~ s/\(/\\\(/; $img =~ s/\)/\\\)/; print "Baixando $img ...\n"; system("wget -c $site/$img 1>/dev/null 2>/dev/null"); } } print "Divirta-se !!!\n";
Descobrir operadora de celular
Postando mensagem no Facebook com Perl
Automatizando o envio de arquivo p/ o FTP !
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
Erro de segmentação «Segmentation fault (core dumped)» ao retornar obj... (4)
Não Consigo instalar o cli-visualizer no Ubuntu 24.04 (2)
compilação samba 4.22 rock linux 9.5 (1)
Posso instalar usar o grub sem ter linux instalado, para iniciar o win... (1)
Ocomon 6.0.1 - Problemas ao editar configurações estendidas (4)