01/03/2008 angie 53
01/03/2008 kristen 95
01/03/2008 MaryT 123
01/03/2008 Nicole 27
01/03/2008 sylvarius 33
01/03/2008 yasmin 67
02/03/2008 angie 2
02/03/2008 kristen 121
02/03/2008 MaryT 81
02/03/2008 Nicole 47
02/03/2008 sylvarius 15
02/03/2008 Tanya 22
02/03/2008 yasmin 60
03/03/2008 angie 3
03/03/2008 donna 78
03/03/2008 Kimberly 9
03/03/2008 kristen 257
03/03/2008 MaryT 181

##</code><code>##

#!/usr/bin/perl
# invoice.pl

$file = 'msgcount.txt';
open(LOG, $file);

#Store the file in an array, split by newlines
while (<LOG>){
       $string .= $_;
       }

@array = split(/\n/, $string);

#Loop through the array
foreach (@array) {

#Split the lines up into words for easy referencing
@tmpwords = split(/ /);
#If the operator name is not already in the array, add it.
unless (grep /@tmpwords[1]/, @operators) {
push (@operators, @tmpwords[1]);
}

foreach (@operators) {
if (@tmpwords[1] eq $_) {
$tmptotal = $tmptotal+@tmpwords[2];
}
push (@totals, $tmptotal);
}
}
print "@totals[1]\n";