[Perl] => [メール]


この日記のはてなブックマーク数 このエントリーを含むはてなブックマーク

POPサーバに接続してメールを取得するにはNet::POP3モジュールを使用します。


[使用例]
#!/usr/bin/perl
use Net::POP3;


#POPサーバに接続
my $pop = Net::POP3->new('サーバのホスト名', Timeout=> 120) || die "Cound\'t Connect to POP server\n";
$pop->login('ユーザ名', 'パスワード') || die "Authentication failed\n";


#メールのリストを取得(メッセージ番号 => サイズ からなるハッシュリファレンス)
my $list_href = $pop->list;


#メールを一通づつ取得
foreach my $msg_id (keys %$list_href){
my $message = $pop->get($msg_id); #メールを取得
print @$message;
$pop->delete($msg_id); #メールを削除
}


$pop->quit;



関連記事
MIME::Parser - メールの解析
Net::POP3 - メールの取得
MIME::Lite - 添付付きメールの送信
メールの送信をするには-Net::SMTP
メールの文字化け
Email::Valid - メールの書式並びにMXのチェック
広告