If you subscribe to several high-volume mailing lists like debian-user or kde-devel and fail to read them for a few days, the messages start piling up. Sometimes you can get back up to speed by spending some time diligently reading through the backlog (or at least holding down the 'D' key in pine ;-) but sometimes you just want to dump the old stuff and start over.
mailexpire is a simple script that will delete any message in a folder from more than a certain number of days ago. The default is 7 days but you can change it.
use constant ONE_DAY => 86400;
my $days = 7;
my $filename = '';
my $help = '';
my $verbose = 1;
'days|d=i' => \$days,
'folder|f=s' => \$filename,
'help|h|?' => \$help,
'verbose!' => \$verbose,
) or pod2usage(-exitstatus => 2, -verbose => 1);
pod2usage(-exitstatus => 0, -verbose => 2) if $help;
die "You must specify a folder\n" unless $filename;
my $expire = time - ($days * ONE_DAY);
my $mgr = Mail::Box::Manager->new;
my $folder = $mgr->open
access => 'rw',
extract => 'LAZY', # To save memory & time, don't parse body unle
log => 'ERRORS', # Don't log or trace warnings.
trace => 'ERRORS',
die "Cannot open $filename: $!\n" unless defined $folder;
my @messages = $folder->messages;
my $count = 0;
foreach my $message (@messages)
print 'Processing message ', $count, "\n"
if $verbose && ($count % 100 == 0);
my $date = str2time($message->date);
$message->delete unless $date > $expire;
$folder->close (write => 'MODIFIED');
mailexpire - Delete old mail from folders.
B<mailexpire> deletes mail older than a certain number of days from a
=item B<--days|-d> I<number_of_days>
Any mail older than this number of days will be deleted from the folde
this option is not specified, the default number of days is 7.
=item B<--folder|-f> I</path/to/folder>
The location of the folder to operate on. This option is mandatory.
folder can be of any type supported by L<Mail::Box>
Display the documentation.
Surpresses the progress information. This is useful if e.g. you are r
the script from a cron job.
The script is exceedingly slow on large folders which take up more
physical memory than you've got. A folders' memory consumption seems
be about 5 times the size of the file on disk so it is easy to be forc
swap and thrash if your folder is big. The answer is probably not use
+ a pure
perl module like L<Mail::Box>.
=head1 SEE ALSO
Jaldhar H. Vyas E<lt>email@example.comE<gt>
This code is free software under the Crowley Public License ("Do what
thou wilt shall be the whole of the license")
1.1 -- Feb 24, 2003