Mail::POP3Client – メールの受信

perlを利用してメールの受信をするために使われるモジュール。

use Mail::POP3Client;

my $pop = new Mail::POP3Client(
USER  => ‘*****’,
PASSWORD => ‘*****’,
HOST  => ‘localhost’,
AUTH_MODE => ‘PASS’
);

my $pop_cnt = $pop->Count;
die(“=> POP3 Connection faild!\n”) if $pop_cnt == -1;

print(“=> $pop_cnt Message(s)\n”);

for(my $i=1; $i<=$pop_cnt; $i++){
print(“=> No. $i\n”);
my $header = $pop->Head($i);
my %headers = $util->parseHeader($header); #パースは別途行う
my $subject = $headers{subject};
my $body = $pop->Body($i);
$body = $util->decodeSubject($body); #本文のでコードは別途行う
$body = Jcode::convert($body, “utf8”);

print ” – Subject : $subject\n”;

#削除フラグの設定
#$pop->Delete($i) if $ret != -1;
}
# 接続解除(削除フラグメールは削除される)
$pop->Close();

参考文献

• Mail::POP3Client – Perl 5 module to talk to a POP3 (RFC1939) server – search.cpan.org :
  http://search.cpan.org/~sdowd/Mail-POP3Client-2.17/POP3Client.pm
• モジュールを使って POP3 クライアントを作ってみよう :
  http://x68000.q-e-d.net/~68user/net/module-pop3.html
• Mail::POP3Clientでメールを読む – ito.tetsunosuke/notebook :
  http://d.hatena.ne.jp/kidd-number5/20070521/1179712635