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.<\/p>\n
For a project I’m going to be doing, I just discovered something awesome: Perl’s Net::IMAP::Simple<\/tt><\/p>\n
This code doesn’t actually do much, but it’s still pretty neat how simple Perl makes it:<\/p>\n
\n# Open the connection\n$server = new Net::IMAP::Simple(\"$servername\") or die(\"Couldn't open connection to server $servernamen\");\nprint \"Connected to $servername...n\";\n\n# Authenticate\n$server->login(\"$user\", \"$pass\") or die(\"Couldn't authenticate with server as $user : $passn\");\nprint \"Authenticated as $user...n\";\n\n# Get a message count (frivilous)\n$message_count = $server->select($folder) or die(\"Selecting folder $folder failed.n\");\nprint \"Connected with $message_count messages...n\";\n\n# Print a list of all folders?\n@folders = $server->mailboxes();\nforeach $x (@folders) {\n print \"$xn\";\n}\n<\/pre>\nWith 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<\/i>…)<\/p>","protected":false},"excerpt":{"rendered":"
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 … Continue reading