Skip to content

Instantly share code, notes, and snippets.

@maddingue

maddingue/mbox2mdir

Created July 28, 2010 00:10
Show Gist options
  • Save maddingue/493092 to your computer and use it in GitHub Desktop.
Save maddingue/493092 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
mbox2mdir
#!/usr/bin/perl
use strict;
use Email::Folder;
use Email::LocalDelivery::Maildir;
my ($mbox, $mdir) = @ARGV;
Email::LocalDelivery::Maildir->deliver( $_, $mdir )
for Email::Folder->new($mbox)->messages;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment