Re^3: How to calculate the column and print it in pie chart format using perl?

[finddata]

sub print_overall_summary  
{

      my $str = shift;
    $DBH = &connect or die "Cannot connect to the sql server \n";
    $DBH->do("USE $str;");
    my $stmt="select distinct * from summary order by time desc ;";
    ;
    my $sth = $DBH->prepare( $stmt );
    $sth->execute() or print "Could not in7sert_overall_summarydata";
    print "<script language=\"javascript\" type=\"text/javascript\"> \
+n"; 
    print "\$(document).ready(function(){ \n";
    %TABLE_DATA =();   
                                                      

print "var data_running=[[\"Adice \($TABLE_DATA{1}{'ENTRY'}\)\",$TABLE
+_DATA{5}{'ENTRY'}],\
                     [\"Incisive \($TABLE_DATA{1}{'ENTRY'}\)\",$TABLE_
+DATA{5}{'ENTRY'}],\
                     [\"Vcs \($TABLE_DATA{1}{'ENTRY'}\)\",$TABLE_DATA{
+5}{'ENTRY'}], \n";
               print "var data_pending=[[\"Adice \($TABLE_DATA{1}{'ENT
+RY'}\)\",$TABLE_DATA{4}{'ENTRY'}],\
                     [\"Incisive \($TABLE_DATA{1}{'ENTRY'}\)\",$TABLE_
+DATA{4}{'ENTRY'}],\
                     [\"Vcs \($TABLE_DATA{1}{'ENTRY'}\)\",$TABLE_DATA{
+4}{'ENTRY'}],\n";                                                    
+                                                        
[download]

                                                          print   " \n
+ pieChart(\"placeholder39\",data_running,{title:\"<b><center>Jobs Run
+ning</center></b>\"});\n";
    print   " \n pieChart(\"placeholder41\",data_pending,{title:\"<b><
+center>Jobs Pending</center></b>\"});\n";

[download]            
        
    print   " \n pieChart(\"placeholder30\",data_machine,{title:\"<b><
+center>Machine Status<center></b>\"});";
    print   " \n pieChart(\"placeholder29\",data_cpu,{title:\"<b><cent
+er>CPU Slots</center></b>\"});\n";
    print   " \n pieChart(\"placeholder39\",data_running,{title:\"<b><
+center>Jobs Running</center></b>\"});\n";
    print   " \n pieChart(\"placeholder41\",data_pending,{title:\"<b><
+center>Jobs Pending</center></b>\"});\n";
    print "});";
    print "</script>";
}

[huck]

You didn not answer the question: Which javascript package do you expect to make the pie chart for you?

You seem to be missing anything that gets the data, $sth->execute() does not return any data. you need something like my $table = $sth->fetchall_hashref; to actualy get the data. That returns an array reference such that $table->[0] has the first row of data and $table->[0]{queue_name} has the value of the queue_name column in the first row. That in no way matches your attempts to use something like $TABLE_DATA{1}{'ENTRY'} as a variable name where 1 is taken as a key to the hash %TABLE_DATA and ENTRY is taken as key to the hash %{$TABLE_DATA{1}}.

[Anonymous Monk]

This should be easy, first, rename the subroutine print_overall_summary to print_pie_chart and then just implement the new subroutine.

Oh, by the way ... did you check the CPAN? SVG::TT::Graph::Pie.