Re: Splitting mail by month

On Thu, 20 Nov 1997, Laura I. Tapia wrote:

> I do have a way of splitting mail by month, but it is quite
> a tedious process. Not hard, just a bit annoying.
> I don't have the steps to give you yet, let me think the process
> through enough to write it down...
Actually, I think I've got the problem solved. I wrote up the following
perl script called sortmail.pl and used it as such:

formail -s sortmail.pl < MAILFILE

I had to hard code in the dates, but with just a little bit more work it
could easily figure out what file to put it in by what it saw on the From
line instead of having to explicitly check for each month.

#!/usr/local/bin/perl

sub output {
        foreach (@msgarray) {
                print FILE "$_\n";
        }
        exit;
}

while (<STDIN>) {
        $msg .= $_;
}

@msgarray = split(/\n/,$msg);

if ($msgarray[0] =~ / Jun .*1996/) {
        open(FILE,">>pilot.0696.ajw");
        &output;
}
if ($msgarray[0] =~ / Jul .*1996/) {
        open(FILE,">>pilot.0796.ajw");
        &output; 
}
if ($msgarray[0] =~ / Aug .*1996/) {
        open(FILE,">>pilot.0896.ajw");
        &output; 
}
if ($msgarray[0] =~ / Sep .*1996/) {
        open(FILE,">>pilot.0996.ajw");
        &output; 
}
if ($msgarray[0] =~ / Oct .*1996/) {
        open(FILE,">>pilot.1096.ajw");
        &output; 
}
if ($msgarray[0] =~ / Nov .*1996/) {
        open(FILE,">>pilot.1196.ajw");
        &output; 
}
if ($msgarray[0] =~ / Dec .*1996/) {
        open(FILE,">>pilot.1296.ajw");
        &output; 
}
if ($msgarray[0] =~ / Jan .*1997/) {
        open(FILE,">>pilot.0197.ajw");
        &output; 
}
if ($msgarray[0] =~ / Feb .*1997/) {
        open(FILE,">>pilot.0297.ajw");
        &output; 
}
if ($msgarray[0] =~ / Mar .*1997/) {
        open(FILE,">>pilot.0397.ajw");
        &output; 
}
if ($msgarray[0] =~ / Apr .*1997/) {
        open(FILE,">>pilot.0497.ajw");
        &output; 
}
if ($msgarray[0] =~ / May .*1997/) {
        open(FILE,">>pilot.0597.ajw");
        &output; 
}
if ($msgarray[0] =~ / Jun .*1997/) {
        open(FILE,">>pilot.0697.ajw");
        &output; 
}
if ($msgarray[0] =~ / Jul .*1997/) {
        open(FILE,">>pilot.0797.ajw");
        &output; 
}
if ($msgarray[0] =~ / Aug .*1997/) {
        open(FILE,">>pilot.0897.ajw");
        &output; 
}
if ($msgarray[0] =~ / Sep .*1997/) {
        open(FILE,">>pilot.0997.ajw");
        &output; 
}
if ($msgarray[0] =~ / Oct .*1997/) {
        open(FILE,">>pilot.1097.ajw");
        &output; 
}
if ($msgarray[0] =~ / Nov .*1997/) {
        open(FILE,">>pilot.1197.ajw");
        &output; 
}
if ($msgarray[0] =~ / Dec .*1997/) {
        open(FILE,">>pilot.1297.ajw");
        &output; 
}
print;


--
Tracy Reed      http://www.ultraviolet.org   
"Every artist is a cannibal, every poet is a thief.
 They all kill their inspiration, and sing about the grief."