Hello all -
While trying to create a script that generates a graph, I am at a loss
for a workable solution. What I need to be able to do in the code
below is add the results from the select statement before pushing the
data into an array. For example, the database contains the following
data:
EMPLOYEE_ID - HOURS_WRKD - DATE
--------------------------------------------------------
David - 8.5 - 1336432429
Marty - 7.5 - 1336432429
David - 5.0 - 1336432429
Steve - 8.0 - 1336432429
Elana - 6.5 - 1336432429
Marty - 8.0 - 1336432429
What I need to be able to do is add the employee's total hours before
pushing it into the array. As such, the following is what would be
pushed into the arrays below:
David - 13.5 - 1336432429
Marty - 15.5 - 1336432429
Steve - 8.0 - 1336432429
Elana - 6.5 - 1336432429
--------%<------ACTUAL CODE ------------%<-----------------
my $dbh = DBI->connect( "dbi:SQLite:dbname=$database_name", "", "" );
my $all = $dbh->selectall_arrayref("SELECT employee_id, hours_wrkd,
date FROM data WHERE date >= $date_then AND date <= $date_now ORDER BY
hours_wrkd DESC" );
foreach my $row (@$all)
{
($employee_id, $hours_wrkd, $date) = @$row;
print "\n\n$employee_id, $hours_wrkd, $date \n";
push(@DATABASE_NAMES, $employee_id);
push(@DATABASE_HOURS, $hours_wrkd);
}
-------------------------------------------------------------------------
Thanks for any help! - David
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
