Re^2: How to add columns with new row name using perl from mysql query?

Is it possible to add others column directly in the mysql query without modifying into the while loop changes using perl


sub pending_running_partition
{
    $var_data_running = "";
    $var_data_pending = "";
      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 queues 
+order by jobs_pending,jobs_running DESC ;";        
    my $sth = $DBH->prepare( $stmt );
     $sth->execute() or print "Could not insert_pending_running_partit
+ion";
     my $tmp = 0;
    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]\]";
        }
    
    }
    $sth->finish;
    $DBH->disconnect();
}
[download]

By the above mysql query i pick maximum to minimum level .Without modifying while loop is it possible to limit maximum 5 and remaining rows to be added and namew with new row called others.

Comment on Re^2: How to add columns with new row name using perl from mysql query? Download Code

Replies are listed 'Best First'.
Re^3: How to add columns with new row name using perl from mysql query? by poj (Abbot) on Apr 06, 2017 at 12:29 UTC
Is it possible.. Yes Without modifying while loop.. No ( unless you make the SQL more complex ) Note the error message for your select is still wrong here $sth->execute() or print "Could not in7sert_run_pend data"; poj	[reply]
Re^4: How to add columns with new row name using perl from mysql query? by finddata (Sexton) on Apr 06, 2017 at 12:45 UTC
Here i should not change the while loop.Without changing while loop, by using only sql query how can i do it?Will adding duplicate entries of the mysql rows and unique it will helps me.If it helps how can i do it mysql query.	[reply]
Re^5: How to add columns with new row name using perl from mysql query? by poj (Abbot) on Apr 06, 2017 at 13:37 UTC
by using only sql query how can i do it Not a Perl question then ? Develop your SQL in MySQL Workbench (or other client) and then when it works put it in your perl script poj	[reply]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks