Net::POP3 - メールの取得

[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;

---

---