CGI-Tiny:CGI

名称 CGI :: Tiny-通用网关接口，没有多余的装饰 概要 #!/usr/bin/perl use strict; use warnings; use CGI::Tiny; cgi { my ($cgi) = @_; $cgi->set_error_handler(sub { my ($cgi, $error) = @_; warn $error; $cgi->render(json => {error => 'Internal Error'}) unless $cgi->headers_rendered; }); my $method = $cgi->method; my $fribble; if ($method eq 'GET') { $fribble = $cgi->query_param('fribble'); }