Làm cách nào để triển khai API RESTful trong Perl?

Question

Tôi đang cố triển khai API RESTful trong Perl. Ý tưởng hiện tại của tôi là phân tích cú pháp path_info với một regex sau đó gửi yêu cầu tới chương trình con thích hợp, sau đó sẽ rút ra JSON, XML hoặc thậm chí XHTML cho tài nguyên được yêu cầu.

Ví dụ để lấy thông tin về người sử dụng 1234 client RESTful nên tìm thấy nó tại địa chỉ:

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

Dưới đây là mã bộ xương của nỗ lực đầu tiên của tôi tại thực hiện một API RESTful:

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"); 
} 

Trước khi tiếp tục, tôi muốn nghe tin từ các tin tặc Perl giàu kinh nghiệm dù tôi có ý tưởng cơ bản đúng không và nếu có bất kỳ thiếu sót nghiêm trọng nào với phương pháp này về hiệu suất.

Tôi có thể tưởng tượng, sau một thời gian, khối if/else sẽ phát triển rất lớn.

Mong muốn được nghe quan điểm của bạn để làm cho mã này tốt hơn.

Answer 1

Tôi sẽ sử dụng một cái gì đó giống như CGI :: Ứng dụng :: Dispatch , nó cho phép tôi xây dựng một bảng điều phối với các biến và phương thức REST, và cho phép bạn sử dụng CGI và CGI :: Các mô-đun ứng dụng từ CPAN. Ví dụ:

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' }, 
], 

(hoặc bạn có thể sử dụng auto_rest hoặc auto_rest_lc)

bạn có thể sử dụng một CGI riêng :: lớp ứng dụng đối với từng loại điều (hoặc chỉ cần sử dụng các lớp trong cgi-ứng dụng phương pháp lớp điều khiển của bạn).

CGI :: Ứng dụng cũng đi kèm với các plugin để xuất XML, JSON hoặc văn bản được tạo từ mẫu.

cgi-app (và c :: a :: d) là các ứng dụng CGI và có thể được sử dụng với (ít hoặc) không thay đổi theo CGI, FastCGI hoặc mod_perl. C :: A :: D cũng là một mod_perl PerlHandler theo mặc định.

Answer 2

Tại sao bạn không sử dụng apache mod_rewrite?

Redirect http://mysite.com/model.pl/users/1234 ->http://mysite.com/users.pl

Redirect http://mysite.com/model.pl/q/5678 ->http://mysite.com/questions.pl

Answer 3

Tôi muốn xây dựng các ứng dụng sử dụng Catalyst và Catalyst::Controller::REST

Answer 4

Tại sao không sử dụng mô-đun đã được triển khai Apache2::REST? Đó là tất cả ở đó.

Answer 5

Đối với các API REST nhẹ tôi sẽ xem xét Mojolicious. Việc định tuyến yêu cầu thực sự đơn giản và trình kết xuất JSON và tác nhân người dùng sẵn có giúp phát triển các API REST đơn giản rất đơn giản trong trải nghiệm của tôi.

Nếu ứng dụng của bạn sẽ tương đối nhỏ thì Mojo::Lite có thể phù hợp với yêu cầu của bạn.Ví dụ, bạn có thể làm điều gì đó như thế này:

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

Giải pháp đơn giản:

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; 
}