要从Perl CGI程序发送JSON响应,您需要遵循以下步骤:
JSON
。您可以使用以下命令安装它:cpan install JSON
JSON
模块:use JSON;
my %data = (
name => "John Doe",
age => 30,
city => "New York",
);
JSON->new->encode()
方法将数据结构转换为JSON字符串:my $json_data = JSON->new->encode(\%data);
application/json
:print "Content-Type: application/json\n\n";
print $json_data;
完整的Perl CGI程序示例:
#!/usr/bin/perl
use strict;
use warnings;
use JSON;
my %data = (
name => "John Doe",
age => 30,
city => "New York",
);
my $json_data = JSON->new->encode(\%data);
print "Content-Type: application/json\n\n";
print $json_data;
这个程序将会发送一个包含JSON数据的响应,其中包括一个名为John Doe
的人的姓名、年龄和城市。
领取专属 10元无门槛券
手把手带您无忧上云