使用 Perl 和 Dancer 创建 REST 服务

引言

最近，RESTful Web 服务在开发者中非常流行，所以我决定用 Perl 实现一个基本的示例，向您展示使用 Perl 创建它们是多么容易。

必备组件

在开始之前，唯一的要求是安装一个 Perl 发行版。我推荐安装 Active Perl，网址为 http://www.activestate.com/activeperl/downloads，我认为如果您是 Perl 初学者，这是一个不错的 Perl 发行版。

安装 Dancer

在计算机上安装 Perl 后，我们需要使用 Active Perl 发行版附带的 Perl 包管理器工具安装 Dancer 模块。

开始编码

现在是时候开始享受乐趣并编写一些代码来创建服务了。

方法

对于这个例子，我编写了三个方法来解释 Dancer 框架的基本用法。它们展示了如何创建 Get 方法来显示信息。

第一个方法

描述：向访客用户发送一条消息“使用 perl 和 dancer 的第一个 REST Web 服务”。

访问：http://server:port

第二个方法

描述：问候 URL 中提供的特定用户。

访问：http://server:port/users/用户名

第三个方法

描述：打印系统中一个虚构的用户列表。

访问：http://server:port/users。

use Dancer;
set serializer => 'XML';
#set serializer => 'JSON'; #un-comment this for json format responses
 
get '/' => sub{
    return {message => "First rest Web Service with Perl and Dancer"};
};

get '/users/:name' => sub {
    my $user = params->{name};
    return {message => "Hello $user"};
};
 
get '/users' => sub{
    my %users = (
        userA => {
            id   => "1",
            name => "Carlos",
        },
        userB => {
            id   => "2",
            name => "Andres",
        },
        userC => {
            id   => "3",
            name => "Bryan",
        },
    );

    return \%users;
};

dance;

运行代码

编写完上述代码后，就可以在命令行中键入“perl file.pl”来运行我们的代码了。

 

结论 

使用 Perl 和 Dancer 编写代码非常简单，您为什么不尝试一下呢？