I'm trying to set up a perl program to be able to calculate the mail traffic per domain. I'd like to seperate mail sent/received traffic. It should also support multiple domains (stored in an SQL table).

I thought about the message id as base for everything since it's unique, right?

Here's a example program I've come up so far with:
And an example log file:
Example output of the current perl program:
So the regular expressions work fine ... now what needs to be done is the following:

- check if example.com, example.de, example.net is in file accounting_domains.txt
- if it is in there calculate traffic from / to the domains


I'm no perl expert so I need advice here ... also with the whole concept in general. Suggestions ?

i couldnt test it but i guess sth like that should work:
(it doesnt differ between mail:to and :from but u will know how to use regexp yourself)

open a filehandle on the log file as before
write the mailaddress into $mailaddress

my ($mailaddress, $read,$num, $sum);

while(<INFILE>) {
if (/$mailadress/) {
$read = 1;}
else {read=0;}

if ((/Messagesize: /) && $read == 1) {
$num = substr($_,13);

$num =~tr/[1-9]//cd;
$sum += $num;
}
}
close (INFILE);
print "traffic of user $mailaddress was $sum Bytes\n";