APLawrence.com -  Resources for Unix and Linux Systems, Bloggers and the self-employed

Perl Mailsplit

I read and post mail with Netscape, and divide mail up into different folders. That's easy to do for incoming mail; I just drag it where I want it when I'm done. It should be just as easy for outgoing, but I usually forget to open up "Sent" to drag stuff out, so I end up with thousands of messages in Sent.

I finally decided to do something about it, and this is the result.

Mailsplit.pl

Mail files begin with a line that says "From ". Everything after that belongs to that message until you find another "From ". This format is true for Netscape and many other mail handling programs.

Netscape also creates another relaed file to handle sorting and deleting, but it watches the date stamps and will recreate the other file if you mess with the original as we are doing here. After adding messages, the folder will appear with "???" until you click on it; Netscape recreates its summary file then (Note that you want Netscape mail CLOSED while doing the splitting).

#!/usr/bin/perl
open(INDEX,"index");
# "index" is a file that contains lines that look like this:
#       To: "[email protected]" <[email protected]>|Vermont
#       To: Raven <[email protected]>|Personal
#       To: Richard MacNevin <[email protected]>|Mac
#
# 
# It was produced by grepping "^To:" from the "Sent" file,
# discarding duplicates with "sort -u" and then adding 
# the "|File" to indicate where I ultimately want to file
# the messages.
# I did this only for the few dozen addresses I want and discarded
# the rest of them.
#
while (<INDEX>) {
        chomp;
        ($who,$file)=split /\|/;
        $who =~ s/To: .*<(.*)>/$1/;
        $who =~ s/To: (.*)/$1/;
        $who = lc($adds);
        # this all just gets the address down to a simple "[email protected]"
        if (! $file) {
                $file = "Misc" 
                };
        # I didn't bother with a lot of the addresses, so we need to
        # default them
        $myfiles{$who}=$file;
        #create the hash
}
chdir "/usr/tony/nsmail"
# obviously this varies
open(MAIL,"Sent");
$mesg="";
$inaddr=0;
while(<MAIL>) {
# this won't be true until we hit the second "From " that
# indicates the beginning of a message
        if (/^From / && $inaddr) {
        # when it is true (we have a new message)
        # print out the old and close the file
          print MYFILE "$mesg";
          close MYFILE;
          $mesg=$_;
          $inaddr=0;
          next;
        }

        $mesg .= $_;
        # accumulate lines
        # I've seen people read files like this in paragraph
        # mode, but that won't work for mail files because
        # the end of one message does not necessarily have a blank line
        
        next unless /^To: /m;
        # now we have the "To:" line.
        chomp;
        $adds=$_;
        $adds =~ s/To: .*<(.*)>/$1/;
        $adds =~ s/To: (.*)/$1/;
        $adds = lc($adds);
        # make it look like the index
        $inaddr=1;
        # set this so when we next reach "From: " we will write.
        $outfile=$myfiles{$adds};
        if (! $outfile) {
           # "index" doesn't contain all the addresses that might be in "Sent"
           $outfile="Misc";
           }
                open(MYFILE,">>$outfile");
                
}
# at the very end there is left over stuff to write
print MYFILE "$mesg";
close MYFILE;
 

© November 1998 Anthony Lawrence



Got something to add? Send me email.





Increase ad revenue 50-250% with Ezoic


More Articles by

Find me on Google+

© Tony Lawrence



Kerio Connect Mailserver

Kerio Samepage

Kerio Control Firewall

Have you tried Searching this site?

Unix/Linux/Mac OS X support by phone, email or on-site: Support Rates

This is a Unix/Linux resource website. It contains technical articles about Unix, Linux and general computing related subjects, opinion, news, help files, how-to's, tutorials and more.

Contact us





640K ought to be enough for anybody. (Bill Gates)

Whenever the literary German dives into a sentence, that is the last you are going to see of him till he emerges on the other side of his Atlantic with his verb in his mouth. (Mark Twain)












This post tagged: