Capturar imagens de um site
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 10.358 ]
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";
IPloc - Informações e localização de um determinado endereço IP
Buscar Traduções no Google Translate
Obtendo a temperatura com Perl
Baixar o Diário Oficial da União e salvar como um único PDF completo
Tweetin - Poste tweets pelo terminal
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Título: Descobrindo o IP externo da VPN no Linux
Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Instalando Brave Browser no Linux Mint 22
vídeo pra quem quer saber como funciona Proteção de Memória:
Encontre seus arquivos facilmente com o Drill
Mouse Logitech MX Ergo Advanced Wireless Trackball no Linux
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Linux Lite Demorando Muito Para Ligar (1)
PC não liga no filtro de linha (4)
Remoção de propaganda com o programa Comskip[AJUDA] (2)