Re^5: How to add columns with new row name using perl from mysql query?

To format the data for javascript use the JSON module

#!perl
use strict;
use warnings;
use JSON 'encode_json';

my @top = (
  ["adice_short", 254, 192],
  ["ncsim_short", 0, 84],
  ["ncsim_long", 41, 78],
  ["adice_long", 5, 39],
  ["normal", 170, 30],
  ["other", 1, 34],
);

my @pend=(); my @run =();
for (@top){
  push @pend,["$_->[0] ($_->[1])",$_->[1]];
  push @run, ["$_->[0] ($_->[2])",$_->[2]];
}
my $json_data_pend = encode_json( \@pend );
my $json_data_run  = encode_json( \@run );
print "var data_run = $json_data_run \n";
[download]

poj

Comment on Re^5: How to add columns with new row name using perl from mysql query? Download Code