splitting email messages from /var/spoolio...

[abachus]

hello again,

I'm trying to find an efficient way to count and/or split email messages from /var/spool/mail/<user>. Apart from opening the spool and iterating through it, could anybody suggest a module they know of that can do this well. I've had a quick look on cpan but got a bit lost.

thanks, Isaac.

[gellyfish]

Email::Folder and its relatives is probably what you want. You can see more about this at The Perl Email Project (though catch that quickly as the wiki seems to be favoured by comment spammers.)

/J\

[abachus]

hey, thanks i've started to read the site as of now.

[madbombX]

I would have to say that your best bet (assuming I understand you correctly) is Mail::Box or Mail::Box::Manager. It's located here.

Assuming that you are using mbox format for your mailboxes:

 use Mail::Box::Manager;

 my $mgr    = Mail::Box::Manager->new;
 my $folder = $mgr->open(folder => $ARGV[0])
   or die("Mailbox open error: $!");
 print $folder->name. ": ".$folder->messages ." Total Messages\n";

 # Iterate over the messages
 foreach (@$folder) { print "Message $_"; }
 $mgr->close()
  or die("Mailbox close error: $!");

Untested.