Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: JSON module

by duff (Parson)
on Aug 14, 2007 at 02:26 UTC ( #632364=note: print w/replies, xml ) Need Help??


in reply to JSON module

At a guess, I think you'd do something like this:

#!/usr/bin/perl use DBI; use JSON; ... $sth->execute(); while (my $hr = $sth->fetchrow_hashref) { push @array, $hr; } my $json = JSON->new; print $json->objToJson(@array);

Caveat emptor, etc.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://632364]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (2)
As of 2021-10-23 02:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (86 votes). Check out past polls.

    Notices?