prithviraj has asked for the wisdom of the Perl Monks concerning the following question:
I have a 'transaction' table created in SQL like this:
The question is: Query data from transaction table and Calculate the total debit amount and total credit amount for each account. My script is like this:TranID Date AccNum Type Amount ChequeNo DDNo 657520 02-07-1999 0181432 Debit 16000 465774 657524 02-07-1999 0181432 Debit 13000 569086 657538 09-07-1999 0181432 Credit 11000 657548 18-07-1999 0181432 Credit 15500 657519 02-07-1999 0181432 Debit 12000 657523 02-07-1999 0181432 Credit 11000 657529 03-07-1999 0181432 Debit 15000 466777 657539 10-07-1999 0181432 Credit 10000 657541 11-07-1999 0181432 Debit 12000 657525 03-07-1999 0181432 Debit 15000 569999 657533 05-07-1999 0181432 Credit 12500
I am getting the exact output for this. But I have two more questions.#!/usr/bin/perl use DBI; use strict; use warnings; $dbh = DBI->connect('dbi:database','prithvi','prithvi') or die "Couldn +'t connect"; my $tran_cur = $dbh->prepare("SELECT AccountNumber, Type, SUM(Amount) +FROM transaction GROUP BY AccountNumber, Type;"); $tran_cur->execute; print "<table><tr>"; map {print "<td>$_</td>"}qw(Account Number-Total Debit Amount); print "<br/>"; print "</tr>"; print "</table>"; while( my @data = $tran_cur->fetchrow_array) { my $rec = join ('-',@data); print "$rec\n"; } $dbh->disconnect;
How can I do this? I just have to replace the SQL query in the above script for the 2 new questions. Please help. Thanks in advance1) Query data from transaction table and calculate the total balance +in each account 2) Query data from transaction table and calculate total amount debite +d by cheque, dd and by cash for each account.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: SQL Database Table to Perl Script
by Polyglot (Chaplain) on Oct 05, 2012 at 05:56 UTC | |
Re: SQL Database Table to Perl Script
by james2vegas (Chaplain) on Oct 05, 2012 at 05:23 UTC | |
by prithviraj (Novice) on Oct 05, 2012 at 07:12 UTC | |
by james2vegas (Chaplain) on Oct 05, 2012 at 07:17 UTC | |
by roboticus (Chancellor) on Oct 05, 2012 at 15:11 UTC | |
Re: SQL Database Table to Perl Script
by erix (Prior) on Oct 05, 2012 at 07:44 UTC | |
| |
Mysql reply
by Generoso (Prior) on Oct 14, 2012 at 04:10 UTC |
Back to
Seekers of Perl Wisdom