POP3でメールを落として、MboxParserでゴニョる
#!/usr/bin/perl use strict; use warnings; use Mail::POP3Client; use Mail::MboxParser::Mail; my $user = "username"; my $pass = "password"; my $host = "example.jp"; my $ssl = 1; my $pop = new Mail::POP3Client( USER => $user, PASSWORD => $pass, HOST => $host, USESSL => $ssl, DEBUG => 0, AUTH_MODE => 'PASS' ); for (my $i = 1; $i <= $pop->Count; $i++) { my $msg = Mail::MboxParser::Mail->new( [ $pop->Head($i) ], [ $pop->Body($i) ] ); print $msg->header->{subject}, "\n"; # $pop->Delete($i); } $pop->Close();
パスワードがブレーンのときは AUTH_MODE を PASS にする。あとは、http://d.hatena.ne.jp/chabom/20100617/1279259115 のようにメッセージをほげる。