• Publicidad

Cómo usar una API en Perl con Curl

Así que programas sin strict y las expresiones regulares son otro modo de hablar. Aquí encontrarás respuestas de nivel avanzado, no recomendable para los débiles de corazón.

Cómo usar una API en Perl con Curl

Notapor danimera » 2012-04-17 09:18 @429

Muy poco entiendo o no comprendo, hay una API que me dan un ejemplo para hacer una pregunta a un artículo de la página, pero no sé cómo lograrlo en Perl.

¿Cómo podría hacer esta petición en Perl al API?

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
curl -v -k -H "Content-Type: application/json" -X POST -d {
   item_id:"<itemID>",
   text:"Tenés de color rojo?"}
https://api.sitio.com/questions?access_token=APP_USR-242-041709-c6eba84d96fc5e38ff9b84d3adde7e01
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Ojalá con WWW::Mechanize...
100% Telch - Perl Web Programming
Cali PerlMongers: http://cali.pm.org
Avatar de Usuario
danimera
Perlero frecuente
Perlero frecuente
 
Mensajes: 871
Registrado: 2005-06-23 19:02 @834
Ubicación: Colombia

Publicidad

Re: Cómo usar una API en Perl con Curl

Notapor explorer » 2012-04-17 09:58 @457

Lo puedes hacer con el propio LWP. No es más que una petición POST en que lo que enviamos es código JSON...
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. my $uri  = 'https://api.sitio.com/questions?access_token=APP_USR-242-041709-c6eba84d96fc5e38ff9b84d3adde7e01';
  2. my $json = '{item_id:"<itemID>",text:"Tenés de color rojo?"}';
  3.  
  4. my $req  = HTTP::Request->new( 'POST' => $uri );                 # petición POST
  5. $req->content_type( 'application/json' );                        # tipo de contenido
  6. $req->content( $json );                                          # contenido
  7.  
  8. my $lwp = LWP::UserAgent->new;                                   # creamos un agente
  9. $lwp->request( $req );                                           # que hace la petición
  10.  
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4

Solo falta en el código la parte de recoger la respuesta.

Y si se puede hacer con LWP, también se debería poder hacer con WWW::Mechanize.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14476
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Avanzado

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 5 invitados

cron