Upload de múltiplos arquivos para Imageshack.us
Publicado por Yves Junqueira Marques Teixeira 07/01/2005
[ Hits: 7.512 ]
Esse script automatiza o envio de imagens para o serviço gratuito imageshack.us.
Facilita muito a vida de quem tem dezenas de foto pra compartilhar mas tem preguiça de enviar uma foto de cada vez.
Peço por favor não abusar do serviço e sempre que possível visitar as propagandas lá do site deles. Ou, melhor ainda, fazer uma doação pra eles, usando paypal. Sejam conscientes!
#!/usr/bin/perl -w ####################################################### # imageshack_upload.pl # - Yves Junqueira, Jan/2005 # Script para enviar diversas imagens para o serviço # imageshack.us # Favor não abusar! Contribua com alguns cliques nas # propagandas daquele site. ####################################################### # Utilização: # # $ perl imageshack_upload.pl vol.jpg # Enviando vol.jpg... Feito. # IMAGEM: http://img119.exs.cx/img119/7908/vol3jp.jpg # use strict; use WWW::Mechanize; my $url = "http://www.imageshack.us/"; my $verb = 0; die "Uso: $0 <arquivo1> [arquivo2] ... [arquivoN]" unless @ARGV > 0; my $mech = WWW::Mechanize->new(); $mech->agent_alias("Linux Mozilla"); $mech->get($url); foreach (@ARGV) { print "Enviando $_... "; my $r = $mech->submit_form( form_number => 1, fields => { "fileupload" => $_ }, ); ($mech->success) ? print "Feito.\n" : warn $mech->response->status_line; my $l = image_link($r); print "IMAGEM: $l\n"; $mech->back; } sub image_link { my $r = shift; my $c = $r->content; if ($verb == 1) { print "\n------------\n$c\n------------\n"; } if ($c =~ m{Here is a direct link to your image\.<br />\s+<textarea cols="100" rows="1" name="select" onClick='highlight\(this\);'>([^>]*)</text}s) { return $1; } die "Resposta desconhecida\n---------------------------\n$c\n"; }
Avisar por e-mail se o IP da conexão ADSL mudar
Burlando o "Protetor de links" INVERTIDO para download grátis
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
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
erro ao clonar repo github (5)
Problema Envio email GLPI Versao 10.0.15 (1)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (25)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba