Question

Here at work, we are working on a newsletter system that our clients can use. As an intern one of my jobs is to help with the smaller pieces of the puzzle. In this case what I need to do is scan the logs of the email server for bounced messages and add the emails and the reason the email bounced to a ‘bad email database’.

The bad emails table has two columns: ’email’ and ‘reason’ I use the following statement to get the information from the logs and send it to the Perl script

grep ' 550 ' /var/log/exim/main.log | awk '{print $5 '|' $23 ' ' $24 ' ' $25 ' ' $26 ' ' $27 ' ' $28 ' ' $29 ' ' $30 ' ' $31 ' ' $32 ' ' $33}' | perl /devl/bademails/getbademails.pl 

If you have sugestions on a more efficient awk script, then I would be glad to hear those too but my main focus is the Perl script. The awk pipes ‘[e-mail]|reason for bounce’ to the Perl script. I want to take in these strings, split them at the | and put the two different parts into their respective columns in the database. Here’s what I have:

#!usr/bin/perl                                                                                                                                                                                 use strict; use warnings; use DBI;  my $dbpath = 'dbi:mysql:database=system;host=localhost:3306'; my $dbh = DBI->connect($dbpath, 'root', '******')     or die 'Can't open database: $DBI::errstr';  while(<STDIN>) {     my $line = $_;                                         my @list = # ?  this is where i am confused     for (my($i) = 0; $i < 1; $i++)     {         if (defined($list[$i]))         {             my @val = split('|', $list[$i]);             print 'Email: $val[0]\n';             print 'Reason: $val[1]';             my $sth = $dbh->prepare(qq{INSERT INTO bademails VALUES('$val[0]', '$val[1]')});             $sth->execute();                                                                                                               $sth->finish();                                                                                                                                                                                       }     } } exit 0; 

Answer 1

Something like this would work:

while(<STDIN>) {   my $line = $_;   chomp($line);   my ($email,$reason) = split(/\|/, $line);   print 'Email: $email\n';   print 'Reason: $reason';   my $sth = $dbh->prepare(qq{INSERT INTO bademails VALUES(?, ?)});   $sth->execute($email, $reason);                                                                                                     $sth->finish();                                                                                                                                                                               } 

You might find it easier to just do the whole thing in Perl. ‘next unless / 550 /’ could replace the grep and a regex could probably replace the awk.