• Publicidad

Ayuda con el API de ImageShack

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Ayuda con el API de ImageShack

Notapor BigBear » 2013-05-14 11:34 @524

Tengo el siguiente código :

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!usr/bin/perl
  2.  
  3. use LWP::UserAgent;
  4. use Data::Dumper;
  5.  
  6. my $nave = LWP::UserAgent->new;
  7. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  8. $nave->timeout(5);  
  9.  
  10. print "\n[+] Uploading ...\n";
  11.  
  12. my $code = $nave->post("https://post.imageshack.us/upload_api.php",Content_Type =>"form-data",Content=>
  13. [
  14. key=>"blabla",
  15. fileupload=>["java.jpg"],
  16. format=>"json"
  17. ]
  18. )->content;
  19.  
  20. print $code;
  21.  
  22.  
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Y me devuelve :

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
[+] Uploading ...
{"status":"1","version":8,"timestamp":1368548024,"base_url":"imageshack.us/a/","
id":1031484817,"rating":{"ratings":0,"avg":0},"files":{"server":"401","bucket":"
2281","image":{"size":460503,"content-type":"image/png","filename":"javan.png","
original_filename":"java.jpg"},"thumb":{"size":6390,"content":"image/jpeg","file
name":"javan.th.png"}},"resolution":{"width":1024,"height":768},"exif-info":{"ex
ifcompression":"Deflate/Inflate","exifimagesnum":"1"},"class":"r","visibility":"
yes","uploader":{"ip":"127.0.0.1","cookie":"b237e07ab15272ee1d9e5e38d4cadd8a","u
sername":"doddyhackman"},"links":{"image_link":"http://imageshack.us/a/img401/22
81/javan.png","image_html":"<a href='http://imageshack.us/photo/my-images/401/ja
van.png/' target='_blank'><img src='http://imageshack.us/a/img401/2281/javan.png
' alt='Free Image Hosting at http://www.ImageShack.us' border='0'/></a>'","image
_bb":"<a href="http://imageshack.us/photo/my-images/401/javan.png/" class="postlink">[IMG]http://image
shack.us/a/img401/2281/javan.png[/IMG]</a>","image_bb2":"http://imageshack.us/
a/img401/2281/javan.png","thumb_link":"<a href='http://imageshack.us/photo/my-im
ages/401/javan.png/' target='_blank'><img src='http://img401.imageshack.us/img40
1/2281/javan.th.png' alt='Free Image Hosting at http://www.ImageShack.us' border
='0'/></a>'","thumb_bb":"[url=http://img401.imageshack.us/img401/2281/javan.th.p
ng]<img src="http://img401.imageshack.us/img401/2281/javan.th.png" alt="Imagen" />[/url]","thumb
_bb2":"http://img401.imageshack.us/img401/2281/javan.th.png","is_link":"http://i
mageshack.us/photo/my-images/401/javan.png/","done":"http://imageshack.us/conten
t_round.php?page=done&l=img401/2281/javan.png"}}
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Según la documentación sería así para sacar el enlace directo:

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
"links":{
      "image_link":"http://imageshack.us/a/img255/9548/poussituxzf0.png", //[direct image link]
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4



La documentación está acá : http://code.google.com/p/imageshackapi/wiki/ImageshackAPI

La pregunta es ¿ cómo obtener el enlace directo de la imagen subida ?
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Publicidad

Re: Ayuda con el API de ImageShack

Notapor explorer » 2013-05-14 12:23 @557

Como ya se ha comentado antes, se puede hacer con el módulo JSON:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. use JSON;
  2. my $ref = decode_json $code;
  3. say $ref->{links}{image_link};   # http://imageshack.us/a/img401/2281/javan.png
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: Bing [Bot] y 1 invitado

cron