Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

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

by finddata (Sexton)
on Mar 22, 2017 at 05:30 UTC ( #1185405=note: print w/replies, xml ) Need Help??


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

am using perl cgi script.Here i had added the part of the code.
  • Comment on Re^2: How to calculate the column and print it in pie chart format using perl?

Replies are listed 'Best First'.
Re^3: How to calculate the column and print it in pie chart format using perl?
by finddata (Sexton) on Mar 22, 2017 at 05:35 UTC
    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>"; }

      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}}.

      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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1185405]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2019-12-06 01:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Strict and warnings: which comes first?



    Results (154 votes). Check out past polls.

    Notices?