Переходим к практике

Рассмотрим очень простой пример. Первое, что нам потребуется – подключение нужных модулей:

use Net::POP3;use MIME::Parser;

use MIME::Entity;

use MIME::Head;

use MIME::Body;

use MIME::Words qw(:all);

use MIME::QuotedPrint;

use MIME::Base64;

Определим основные объекты и переменные:

my $parser = MIME::Parser->new;

$parser->output_to_core(1);

$parser->tmp_to_core(1);

$mail_server='127.0.0.1';

$username='login';

$password='password';

Теперь получим список писем:

$pop = Net::POP3->new($mail_server)

        or die "Can't open coonection to $mail_server :$! ";

$pop->login($username, $password)

        or die "Can't Authenticate: $! ";

$messages = $pop->list

        or die "Can't get listof undeleted messages: $! ";

Начинаем обрабатывать каждое письмо:

foreach $msgid (keys %$messages)

    {

        $message = $pop->get($msgid);

        unless (defined $message)

            {

            warn "Couldn't fetch $msgid from server: $! ";

            next;

            }