如何从Perl CGI程序发送JSON响应？

要从Perl CGI程序发送JSON响应，您需要遵循以下步骤：

首先，确保您已经安装了Perl模块JSON。您可以使用以下命令安装它：

cpan install JSON

在您的Perl CGI程序中，引入JSON模块：

use JSON;

创建一个数据结构，例如哈希表，数组或者嵌套的数据结构，以表示您要发送的JSON数据：

my %data = (
    name => "John Doe",
    age => 30,
    city => "New York",
);

使用JSON->new->encode()方法将数据结构转换为JSON字符串：

my $json_data = JSON->new->encode(\%data);

设置CGI响应的内容类型为application/json：

print "Content-Type: application/json\n\n";

最后，打印JSON字符串：

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元无门槛券

手把手带您无忧上云

如何从Perl CGI程序发送JSON响应？

相关·内容

扫码

相关资讯

热门标签

活动推荐

运营活动

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐