Perlによるメール受信・パース(Net::POP3+Email::MIME) | UCWD-Studio先ほどのエントリーとは逆にPerlを使ってメールの受信をしてみます。メールサーバからメールを取得するのにはNet::POP3を、その内容をパースするのにはEmail::MIMEを利用します。 前回と同じく学習テストを兼ねてサンプルを作成してみました。今回も単純な例としてHTMLメールや添付ファイルとかは考慮せず、サーバに残っているメールからタイトルと本文を表示させてみます。 use strict; use warnings; use utf8; use Encode qw(encode); use Net::POP3; use Email::MIME; my $server = 'mail.example.com'; my $account = 'hoge'; my $password = 'bar'; my $protocol = 'pop3'; my $pop3 = Net::POP3
