[Perl] データベースから取得したレコードをJSON形式で出力する

昨日、仕事で引っ掛かった内容。 エラーが解消できなくて、いったん諦めたのに、 ひと晩明けて今日になったらあっけなく解消した。 こーゆーのは、ちゃんと残しておかないと、またド忘れする。 備忘録的にメモ。 #!user/perl/bin/perl use strict; use warnings; use CGI; use DBI; use JSON; my $cgi = CGI->new(); my $where_string = $cgi->param('WHERE_STRING'); #データベース接続情報 my $data_source = 'DBI:mysql:database_name:host_name'; my $username = 'hoge'; my $auth = 'password'; my $dbh = DBI->connect($data_source, $use