How to calculate the column and print it in pie chart format using perl?

finddata has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How to calculate the column and print it in pie chart format using perl? by marto (Cardinal) on Mar 22, 2017 at 10:03 UTC
You don't specifically mention it, but by the look of some of your questions you're building a web interface, now with JavaScript charting. I suggest you make life easy for yourself and use an existing web framework, such as Mojolicious::Lite and an appropriate JavaScript charting solution which can read JSON data. The Mojolicious documentation is great, your time would be wel spent addressing the basics, which are perl and web skills that are framework agnostic.	[reply]
Re: How to calculate the column and print it in pie chart format using perl? by huck (Prior) on Mar 22, 2017 at 05:27 UTC
It looks like you are writing commands that another program will use to create the pie chart. What program is that? How are you accessing the mysql database from perl and storing the data you get back from the select statement?	[reply]
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
am using perl cgi script.Here i had added the part of the code.	[reply]
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>"; } [download]	[reply] [d/l]
Re^4: How to calculate the column and print it in pie chart format using perl? by huck (Prior) on Mar 22, 2017 at 06:01 UTC
Re^4: How to calculate the column and print it in pie chart format using perl? by Anonymous Monk on Mar 22, 2017 at 16:07 UTC
Re^2: How to calculate the column and print it in pie chart format using perl? by finddata (Sexton) on Mar 22, 2017 at 06:09 UTC
<head> <link rel="stylesheet" type="text/css" href="../lib/DataTables/med +ia/css/jquery.dataTables.css"> <link rel="stylesheet" type="text/css" href="../lib/Dat +aTables/examples/resources/syntax/shCore.css"> <script language="javascript" type="text/javascript" src="../l +ib/flot/current/jquery.js"></script> <script type="text/javascript" language="javascript" src="../l +ib/DataTables/media/js/jquery.dataTables.js"></script> <script type="text/javascript" language="javascript" src="../l +ib/DataTables/examples/resources/syntax/shCore.js"></script> <script type="text/javascript" language="javascript" src="../l +ib/DataTables/examples/resources/demo.js"></script> <script type="text/javascript" language="javascript" src="../l +ib/DataTables/extensions/ColVis/js/dataTables.colVis.js"></script> + <script type="text/javascript" language="javascript" src="../l +ib/DataTables/extensions/TableTools/js/dataTables.tableTools.js"></sc +ript> <script language="javascript" type="text/javascript" src=" . +./lib/flot/current/jquery.flot.js"></script> <!-- <script language="javascript" type="text/javascript" src= +" ../lib/flot/current/demo_table.css"></script> --> <script language="javascript" type="text/javascript" +src=" ../lib/new_style.css"></script> <script language="javascript" type="text/javascript" src=" .. +/lib/flot/current/jquery.flot.categories.js"></script> <script language="javascript" type="text/javascript" src=" .. +/lib/flot/current/jquery.flot.pie.js"></script> <script language="javascript" type="text/javascript" src=" .. +/lib/flot/current/jquery.flot.stack.js"></script> <script language="javascript" type="text/javascript" src=" ../ +lib/flot/current/jquery.flot.axislabels.js"></script> <script language="javascript" type="text/javascript" src=" .. +/lib/flot/current/jquery.flot.resize.js"></script> <script language="javascript" type="text/javascript" src=" .. +/lib/flot/current/jquery.flot.tooltip.js"></script> <script language="javascript" type="text/javascript" src=" .. +/lib/flot/current/jquery.flot.navigate.js "></script> <script language="javascript" type="text/javascript" src=" .. +/lib/flot/current/date.js"></script> <script language="javascript" type="text/javascript" src=" .. +/lib/flot/current/jquery.dataTables.min.js"></script> <script language="javascript" type="text/javascript" src=" .. +/lib/flot/current/jquery.validate.js"></script> <script language="javascript" type="text/javascript" src="../l +ib/flot_test.js"></script> <script language="javascript" type="text/javascript" src="../l +ib/flot.js"></script> <link rel="stylesheet" type="text/css" href="../lib/stylesheet.css +"> <link rel="stylesheet" type="text/css" href="../lib/DataTables +/media/css/jquery.dataTables.css"> <link rel="stylesheet" type="text/css" href="../lib/DataTables/exa +mples/resources/syntax/shCore.css"> <!-- <link rel="stylesheet" type="text/css" href=" ../lib/mysty +le.css">--> <!-- <link rel="stylesheet" type="text/css" href="../lib/DataTa +bles/extensions/ColVis/css/dataTables.colVis.css"> <link rel="stylesheet" type="text/css" href="../lib/DataTables +/extensions/TableTools/css/dataTables.tableTools.css"> --> <!-- <link rel="stylesheet" type="text/css" href="../etc/css/st +yles.css" /> --> <script type="text/javascript" language="javascript" src="../l +ib/DataTables/examples/resources/syntax/shCore.js"></script> <script type="text/javascript" language="javascript" src="../l +ib/DataTables/examples/resources/demo.js"></script> <META HTTP-EQUIV="Pragma" CONTENT="no-cache"> <META HTTP-EQUIV="Expires" CONTENT="-1"> </head> [download]	[reply] [d/l]
Re^3: How to calculate the column and print it in pie chart format using perl? by huck (Prior) on Mar 22, 2017 at 07:17 UTC
since you are serving it from your website that seems to be some wort of homebrew javascript package. As such we will be of little use in helping you prepare the statements that will properly call it. Possibly somebody else at work can help you with that in the meantime you can work on getting your input data prepared correctly. From what you have shown %TABLE_DATA is empty. Each time you reference `$TABLE_DATA{5}{'ENTRY'}` it will have the same data, it makes no difference if the label is Vcs or Adice. possibly you meant `$TABLE_DATA{5}{'Vcs'}` instead. what would even make more sense would be `$TABLE_DATA{'jobs_running'}{'Vcs'}`. we once showed you a way to translate the data returned by `my $table = $sth->fetchall_arrayref;` into data of that form. Because i would like this exercise in futility to end quicker i propose something like 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 queue_name,jobs_pending,jobs_running from summary o +rder by time desc ;"; ; my $sth = $DBH->prepare( $stmt ); $sth->execute() or print "Could not prepare_overall_summarydata"; print "<script language=\"javascript\" type=\"text/javascript\"> \n" +; print "\$(document).ready(function(){ \n"; %TABLE_DATA =(); my @sys=qw/Adice Incisive Vcs other/; my $table = $sth->fetchall_hashref; for my $r (@$table) { my $name='other'; for my $s (@sys){ if ($r->{queue_name)=~m/$s/i) {$name=$s; last;} } $TABLE_DATA{$name}{jobs_pending}+=$r->{jobs_pending}; $TABLE_DATA{$name}{jobs_running}+=$r->{jobs_running}; } for my $var(qw/running pending/) { my @parts=(); for my $s (@sys){ push @parts,'["'.$s.'",' .$TABLE_DATA{$s}{'jobs_'.$var} .']'; } print 'var data_'.$var.'=['.join(',',@parts).']'."\n"; } print " \n pieChart(\"placeholder39\",data_running,{title:\"<b><ce +nter>Jobs Running</center></b>\"});\n"; print " \n pieChart(\"placeholder41\",data_pending,{title:\"<b><ce +nter>Jobs Pending</center></b>\"});\n"; print "});"; print "</script>"; } [download] Untested, if there are syntax errors it s up to you to fix them. notice you have not made any variables for data_machine or data_cpu so those piecharts would fail. You need to talk to your boss about how these tasks are way beyond your abilities even though they are so simple. And how you need to get others to do your work for you. Or you could make and effort to learn perl instead	[reply] [d/l] [select]
Re^4: How to calculate the column and print it in pie chart format using perl? by finddata (Sexton) on Mar 22, 2017 at 09:38 UTC
Re^5: How to calculate the column and print it in pie chart format using perl? by Corion (Patriarch) on Mar 22, 2017 at 09:42 UTC
Re^5: How to calculate the column and print it in pie chart format using perl? by huck (Prior) on Mar 22, 2017 at 09:49 UTC
Re^4: How to calculate the column and print it in pie chart format using perl? by finddata (Sexton) on Mar 23, 2017 at 04:21 UTC
Re^5: How to calculate the column and print it in pie chart format using perl? by huck (Prior) on Mar 23, 2017 at 04:48 UTC
Re^4: How to calculate the column and print it in pie chart format using perl? by finddata (Sexton) on Mar 23, 2017 at 05:04 UTC
Re^5: How to calculate the column and print it in pie chart format using perl? by marioroy (Prior) on Mar 23, 2017 at 06:05 UTC
Some notes below your chosen depth have not been shown here
Re^5: How to calculate the column and print it in pie chart format using perl? by huck (Prior) on Mar 23, 2017 at 05:10 UTC
Some notes below your chosen depth have not been shown here
Re: How to calculate the column and print it in pie chart format using perl? by duyet (Friar) on Mar 22, 2017 at 07:02 UTC
Have a look at Google charts! Read the API and examples ... Retrieve the data from database or where ever it is. As long as you can feed your data to it, you will get your chart.	[reply]
Re^2: How to calculate the column and print it in pie chart format using perl? by afoken (Chancellor) on Mar 22, 2017 at 12:01 UTC
Have a look at Google charts! Read the API and examples Disadvantages: Internet Connection required Javascript required Javascript code dyamically loaded from the internet A lot of trust in Google required To explain the last point: You have to load Javascript code from Google at runtime, which loads even more Javascript code from Google and NodeReaper knows from where else. That code has the potential to upload all of the data you pass to the API functions. Google can change the implementation of the Javascript code at any time - they just promise backwards compatibiliy for some time. "My data is not important, it will hide in the background noise." That background noise is well-analysed and sold by Google / Alphabet. They make money from it. A lot of money. So much money that they can afford developing self-driving cars (from scratch!) and many other things. Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply]
Re^3: How to calculate the column and print it in pie chart format using perl? by duyet (Friar) on Mar 23, 2017 at 15:10 UTC
Maybe we can be driven to work someday :) Don't use it if you don't trust it :)	[reply]