I’m quickly finding it necessary to get back “into” scripting: I’d throw stuff together here and there, but it’s been a while since I wrote anything more than a dozen lines or so, and I haven’t done anything with Perl in far too long.

For a project I’m going to be doing, I just discovered something awesome: Perl’s Net::IMAP::Simple

This code doesn’t actually do much, but it’s still pretty neat how simple Perl makes it:

# Open the connection
$server = new Net::IMAP::Simple("$servername") or die("Couldn't open connection to server $servernamen");
print "Connected to $servername...n";

# Authenticate
$server->login("$user", "$pass") or die("Couldn't authenticate with server as $user : $passn");
print "Authenticated as $user...n";

# Get a message count (frivilous)
$message_count = $server->select($folder) or die("Selecting folder $folder failed.n");
print "Connected with $message_count messages...n";

# Print a list of all folders?
@folders = $server->mailboxes();
foreach $x (@folders) {
        print "$xn";
}

With a little looping magic, it should be easy enough to extract whatever’s needed from each message! (There are some more complex IMAP scripts, but, well, they’re not called IMAP::Simple…)