Capturar imagens de um site
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 10.521 ]
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";
Iniciando desenvolvimento web ágil com Perl (Mojolicious)
API do Bing para traduzir textos
VimeoTheSapo -Baixe videos do Vimeo e do sapo
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Atualizando o Fedora 42 para 43
Como saber se o seu e-mail já teve a senha vazada?
Como descobrir se a sua senha já foi vazada na internet?
Warcraft II Remastered no Linux? (7)
O programa assinador digital (5)









