在开始之前,需要确保已经安装了Perl语言的发行版。对于Perl的初学者来说,推荐安装Active Perl,可以从下载。
安装Perl之后,需要使用Perl包管理器来安装Dancer模块。这个工具随Active Perl发行版一起提供。
现在可以开始编写代码,创建一个简单的服务。在这个例子中,将展示三个方法来解释Dancer框架的基本用法。这些方法展示了如何创建Get方法来显示信息。
描述:向访问者显示消息 "First REST Web Service withPerland Dancer"。
访问:http://server:port
描述:根据URL中提供的特定用户名称向用户问候。
访问:http://server:port/users/username
描述:打印系统中的一组虚拟用户列表。
访问:http://server:port/users
use Dancer;
set serializer => 'XML';
# set serializer => 'JSON'; #取消注释以使用JSON格式响应
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;