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]
Result 
var data_run=[["adice_short",192],["ncsim_short",84],["ncsim_long",78]
+,["adice_long",39],["normal",30],["other",34]];

[download]
They must be hard up for programmers where you work. It takes you days to produce something that anyone competent would do in an hour.

In reply to Re^5: How to add columns with new row name using perl from mysql query? by huck
in thread How to add columns with new row name using perl from mysql query? by perlanswers

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.