Question

有没有办法在使用Mojolicious Lite的Perl中将POST参数表示为可选项？例如，如果请求正文中未定义param2，是否有办法让服务器不返回404？

post "/my_post" => \&render(post_callback);

sub post_callback {
    my ($mojo) = @_;
    my $param1 = $mojo->param("param1");
    my $param2 = $mojo->param("param2");
}

Answer 1

我的问题是，我误解了是如何使用回调路由的。以下代码适用于两个参数都是可选的：

#!/usr/bin/env perl
use strict;
use warnings;
use Mojolicious::Lite;

post '/' => sub {
    my ($mojo) = @_;
    my $param1 = $mojo->param("param1");
    my $param2 = $mojo->param("param2");
    $mojo->render(text => "param1: $param1, param2: $param2");
};

app->start;

如果您使用：./my_server.pl daemon运行此操作，您将能够使用任意参数组合发送POST请求。

Answer 2

在帖子中，我不想使用参数，而是将所有参数发布在一个JSON字符串中。幽默的后操作将接收json-string作为哈希引用。

示例：

# The posted data looks like:
# '{ "username": "rob", "password": "secret" }'
#
sub authenticate {
    my $self = shift;
    my $jsonHash = $self->req->json ;
    $self->render( text => Dumper($jsonHash)) ;
}

使用curl可以轻松测试帖子：

curl -X POST -d '{ "username": "rob", "password": "secret" }' http://hp-probook:3000/users/authenticate

使用Perl的Mojolicious Lite中的可选POST参数

2 个答案: