Capturar imagens de um site
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 10.398 ]
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";
SMTP Mass Mail - Enviando e-mails em massa para vários endereços a partir de um servidor SMTP
API do Bing para traduzir textos
tux-gpt - Assistente de IA para o Terminal
Instalação e configuração do Chrony
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
Como instalar no Linux Jogos da Steam só para Windows
Instalando o Team Viewer no Debian Trixie - problema no Policykit
O Que Fazer Após Instalar Ubuntu 25.04
Atalhos duplicados (sobras de instalações anteriores) (0)
Copiar Layout do Teclado para aplicar em outra Distribuição (9)