PR

Mail::POP3Client – メールの受信

2008.02.21

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();

参考文献

スポンサーリンク

コメント