¿Cómo puedo implementar una API RESTful en Perl?

Question

Estoy tratando de implementar una API RESTful en Perl. Mi idea actual es simplemente analizar el path_info con una expresión regular y luego enviar la solicitud a la subrutina apropiada, que luego escupirá el JSON, XML o incluso XHTML para el recurso solicitado.

Por ejemplo para recuperar información sobre el usuario 1234 el cliente REST debe encontrar en:

http://example.com/model.pl/users/1234

A continuación se muestra el código esqueleto de mi primer intento de implementar un API REST:

model.pl:

#!/usr/bin/perl -w 
use strict; 
use CGI; 

my $q = CGI->new(); 

print $q->header('text/html'); 

my $restfuluri = $q->path_info; 

if  ($restfuluri =~ /^\/(questions)\/([1-9]+$)/) { questions($1, $2); } 
elsif ($restfuluri =~ /^\/(users)\/([1-9]+$)/)  { users($1, $2); } 


sub questions 
{ 
     my $object = shift; 
     my $value = shift; 

     #This is a stub, spits out JSON or XML when implemented. 
     print $q->p("GET question : $object -> $value"); 
} 

sub users 
{ 
     my $object = shift; 
     my $value = shift; 

     #This is a stub, spits out JSON or XML when implemented. 
     print $q->p("GET user: $object -> $value"); 
} 

Antes de seguir adelante, me gustaría saber de piratas informáticos Perl experimentados si obtuve la idea básica correcta y si hay algún inconveniente grave con este enfoque en términos de rendimiento.

Me puedo imaginar, después de un tiempo, el bloque if/else crecería realmente grande.

Esperamos escuchar sus opiniones para mejorar este código.

Answer 1

me gustaría utilizar algo así como CGI :: Application :: Despacho , me permite crear una tabla de distribución con variables y métodos REST, y te permite usar CGI y CGI :: Módulos de aplicación desde CPAN. Por ejemplo:

table => [ 
'/questions/:id[get]' => { rm => 'get_question' }, 
'/users/:id[get]'  => { rm => 'get_user' }, # OR 
':app/:id[post]'   => { rm => 'update' }, # where :app is your cgi application module 
':app/:id[delete]'  => { rm => 'delete' }, 
], 

(o puede utilizar auto_rest o auto_rest_lc)

puede utilizar un CGI :: Clase de aplicación separada para cada tipo de cosas (o simplemente utilizar las clases de métodos de su clase controlador de cgi-app)

CGI :: La aplicación también viene con complementos para generar XML, JSON o texto generado a partir de plantillas.

cgi-app (y c :: a :: d) son aplicaciones CGI y se pueden utilizar con (poco o) sin cambios bajo CGI, FastCGI o mod_perl. C :: A :: D también es un mod_perl PerlHandler por defecto también.

Answer 2

¿Por qué no utiliza apache mod_rewrite?

redirección http://mysite.com/model.pl/users/1234 ->http://mysite.com/users.pl

redirección http://mysite.com/model.pl/q/5678 ->http://mysite.com/questions.pl

Answer 3

construiría la aplicación utilizando Catalyst y Catalyst::Controller::REST

Answer 4

¿Por qué no utilizar el módulo ya implementado Apache2::REST? Todo está allí.

Answer 5

Para las API REST livianas, me gustaría ver Mojolicious. El enrutamiento de solicitudes es muy sencillo y el renderizador incorporado de JSON y el agente de usuario hacen que el desarrollo de simples API de REST sea muy sencillo en mi experiencia.

Si su aplicación va a ser relativamente pequeña, entonces Mojo::Lite puede satisfacer sus requisitos.Por ejemplo, usted puede ser capaz de hacer algo como esto:

use Mojolicious::Lite; 

get '/questions/(:question_id)' => sub { 
    my $self = shift; 
    my $result = {}; 
    # do stuff with $result based on $self->stash('question_id') 
    return $self->render_json($result) 
} 

app->start; 

Answer 6

La solución más sencilla:

use CGI; 

my $page = new CGI; 

if($ENV{ 'REQUEST_METHOD' } eq 'GET'){ 

    my $data = <<json; 
    { 
    "isbn" : "123456", 
    "title" : "Programming Perl", 
    "author" : "L. Wall" 
    } 
json 

    print $page->header('application/json'); 

    print $data; 
}