Capturar imagens de um site
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 10.207 ]
Homepage: https://www.instagram.com/alexabolada/
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";
Burlando o "Protetor de links" INVERTIDO para download grátis
IPloc - Informações e localização de um determinado endereço IP
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
redirecionando saida de comando touch para o AWK[AJUDA] (11)
filtrar só as pastas onde tem arquivo (1)
Impressora Canon Ip 1800 (Drivers) 64 bit (9)