parsing postfix bounce back emails from log

[gooogoo]

I have a little script going to tell me why a email bounced.

i feel like Im taking the long road.

Heres what I do.

First I open the file and then do.


while (<FILE>){

if($_ =~ m/From\sMAILER\-DAEMON/){
$error1 = 'unknown';

}elsif($_ =~ m/said\:\s(.*?)\s/){
$status_code = $1;

}elsif($_ =~ m/Invalid\srecipient/){
$error1 = 'Invalid Receipient';

}elsif($_ =~ m/Mailbox\sunavailable/i){
$error1 = 'Mailbox Unavailable';

and so on and sooooo on. Ending up with a huge list of defined errors.


I first match MAILER DAEMON coz every bounce back starts with that, so its a
border to work with.

I guess to cut down on the elsif statements I would whack the regex searches
into an array.

Any helpful tips.

 

[usenet]

and so on and sooooo on. Ending up with a huge list of defined errors.

Any helpful tips.

You could use a "case" command. Oh, wait - Perl doesn't have a "case"
(Larry says it's redundant - but it could be handy sometimes, and this
is one of those times).

But CPAN has a case module:
http://search.cpan.org/~rjohnson/Case-0.0.2/Case.pm

 

[gooogoo]

Yup thats what the VB ppl @ work said use Case. But then i said huh? perl
dont have case. didn't think about case modules thou.

Thanxs, I'll give it a go.

 

[Anno Siegel]

I have a little script going to tell me why a email bounced.

i feel like Im taking the long road.

Heres what I do.

First I open the file and then do.


while (<FILE>){

if($_ =~ m/From\sMAILER\-DAEMON/){
$error1 = 'unknown';

This looks like a logical error. You'll check all other conditions only
if the line *doesn't* match /From\sMAILER\-DAEMON/.

}elsif($_ =~ m/said\:\s(.*?)\s/){
$status_code = $1;

}elsif($_ =~ m/Invalid\srecipient/){
$error1 = 'Invalid Receipient';

}elsif($_ =~ m/Mailbox\sunavailable/i){
$error1 = 'Mailbox Unavailable';

and so on and sooooo on. Ending up with a huge list of defined errors.

Your indentation is wrong. All "elsif"s are on the same level and should
be indented equally.

Anno

 

[Ian Wilson]

I have a little script going to tell me why a email bounced.

i feel like Im taking the long road.

Heres what I do.

First I open the file and then do.


while (<FILE>){

if($_ =~ m/From\sMAILER\-DAEMON/){
$error1 = 'unknown';

}elsif($_ =~ m/said\:\s(.*?)\s/){
$status_code = $1;

}elsif($_ =~ m/Invalid\srecipient/){
$error1 = 'Invalid Receipient';

}elsif($_ =~ m/Mailbox\sunavailable/i){
$error1 = 'Mailbox Unavailable';

and so on and sooooo on. Ending up with a huge list of defined errors.


I first match MAILER DAEMON coz every bounce back starts with that, so its a
border to work with.

I guess to cut down on the elsif statements I would whack the regex searches
into an array.

Any helpful tips.

perldoc -q "case statement"