#!/usr/bin/perl -wT
use strict;
use warnings;
use DBI;
use JSON;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
my $host = "host";
my $usr = "user";
my $pwd = "pwd";
my $dbname = "datname";
my $dbh = DBI->connect("DBI:mysql:$dbname:$host", $usr, $pwd, {
RaiseError => 1,
}) or die $DBI::errstr;
my $Test = $dbh->prepare("SELECT idnum, fname FROM dbuser");
$Test->execute();
my (@data,$idnum,$fname);
foreach (@data = $Test->fetchrow_array()) {
$idnum = $data[0];
$fname = $data[1];
}
print "Content-type: text/html\n\n";
my $json = encode_json(
{ $idnum, $fname}
);
print $json;
####
{"748847":"Jane Deo"}
##
##
sample dataTable