Gossamer Forum: General: Perl Programming: ADD the Records?

Mar 12, 2003, 1:26 PM

zeshan

User (98 posts)

Mar 12, 2003, 1:26 PM

Post #1 of 6

Shortcut

ADD the Records?

Okay lets Open the database
------------------------
open (ORGDB,"<$database");
@ODB=<ORGDB>;
close (ORGDB);

##Split and read the contents of database
foreach $rec (@ODB){
chomp($rec);
($employee_name,$pay)=split(/\|/,$rec);

print "$employee_name" - $pay\n";

-------------------------
All the above code is working fine. The problem is I want to
calculate all the $pay records in the End.

e.g. TOTAL PAY given to employees.

How I can calculate/add all the $pay records in the database and
show them at the last line??

Any help?

Thanks and regards to all,

Zeshan.

Mar 12, 2003, 1:30 PM

Paul

Veteran (19537 posts)

Mar 12, 2003, 1:30 PM

Post #2 of 6

Shortcut

Re: [zeshan] ADD the Records? In reply to

I'll bet you $100,000 that your code exactly as you have it does not run Wink

I'd suggest the following, less memory intensive solution (including error checking Wink

)...

Code:
my $total_pay = 0; 
my $database = "/foo/bar'; 
open ORGDB, $database or die "Can't open $database: $!";  
while (<ORGDB>) { 
    chomp; 
    my ($employee_name,$pay) = split /\|/, $rec; 
    print "$employee_name - $pay\n";  
} 
close ORGDB; 

print $total_pay;