poj replied to perlanswers you've responded as finddata. Did you forget which account you were logged in with?

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]

back to your pie charts now huh?

It might help if you understood what your var data_run= statment was supposed to look like. If i remember correctly it is an array of arrays. The interior arrays contain a label and a value.

var data_run=[ ["label a",1],["label b",2],["label_c",99]];
[download]

 
use strict; use warnings; 
use DBI; 

my $storagefile='finddata';
my $DBH = DBI->connect( "dbi:SQLite:dbname=".$storagefile ) || die "Ca
+nnot connect: $storagefile $DBI::errstr";


my $sql = 'SELECT queue_name,jobs_pend,jobs_run 
           FROM queues 
           ORDER BY jobs_run DESC';
my $sth = $DBH->prepare( $sql );
$sth->execute();

# input
my %table = ();
my $recno = 0;
my @top   = ();
while (my ($name,$pend,$run) = $sth->fetchrow_array){
  my $key = ($recno++ < 5) ? $name : 'other' ;
  push @top,$key unless (defined ($top[-1]) && $top[-1] eq 'other');
  $table{$key}{'pend'} += $pend;
  $table{$key}{'run'}  += $run;
}

#So first you need to make your interior arrays
my @iarray_run; 
for my $key (@top){
  push @iarray_run,'["'.$key.'",'.$table{$key}{'run'}.']'; 
}
# then you join them and assign them 
my $orun=join(',',@iarray_run); 
print "var data_run=[$orun];\n";
[download]

var data_run=[["adice_short",192],["ncsim_short",84],["ncsim_long",78]
+,["adice_long",39],["normal",30],["other",34]];
[download]

' It takes you days to produce something that anyone competent would do in an hour.'. Wrong. They post here, you do their job and complain, goto 10. Keep it up

Apr 03, 2017[How to add columns with new row name using perl from mysql query?]

but then Mar 21, 2017How to calculate the column and print it in pie chart format using perl?

Thats more like two weeks isnt it?

->0

This output i got from previous output itself the thing i tried it to push into some piechart format so i had showed my code with following format .Thats why i had posted my code with the following format while am posting my question.
For example:Just for reference i showed you this code


while(my @row_array=$sth->fetchrow_array)
    {
        if ($tmp == 0) {
        $var_data_running .= "\[\"$row_array[0] \($row_array[2]\)\",$r
+ow_array[2]\]";
        $var_data_pending .= "\[\"$row_array[0] \($row_array[1]\)\",$r
+ow_array[1]\]";
        $tmp++;
        }
        else {
        $var_data_running .= ",\[\"$row_array[0] \($row_array[2]\)\",$
+row_array[2]\]";
        $var_data_pending .= ",\[\"$row_array[0] \($row_array[1]\)\",$
+row_array[1]\]";
        }
    
    }
[download]


In your recent code you had used join then you are printing those variables
.Here the variable prints properly.To include it into some chart format i had reformat the following part of code as like the above one which as follows


    my $orun=join('',@iarray_run); 
    my $opend=join('',@iarray_pend);
[download]