Capturar imagens de um site
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 10.385 ]
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";
PDF completo com todas as páginas do Diário Oficial do Estado de Goiás
Baixar o Diário Oficial da União e salvar como um único PDF completo
Perl Check Port - Entenda melhor os sockets
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)