Код. #!/usr/bin/perl -w use strict; use Net::IMAP::Client; my $imap = Net::IMAP: :Client->new( server => 'imap.gmail.com', user => 'user', pass => 'pass', ...Подскажите как посредством IMAP, необходимо получить письма которые идут с пометкой. применимо к серверу GMAIL письма которые идут с отметкой у гугла это звездочка ) or die "Could not connect to IMAP server"; die('Login failed: ' . $imap->last_error); my @messages = $imap->search('FLAGGED'); , @messages это массив uid писем. Делаете потом запрос по этим uid и получаете что нужно. у тебя есть возможность выслать пример uid запроса и его разбор. в инете не получается найти рабочего примера в инете не получается найти рабочего примера Я не пойму как мне парсить письма и где мне крутить цикл? как я понимаю нужно @messages получить uid письма и получать заголовки и тела писем с помощью команд. my $summaries = $imap->get_summaries([ @msg_ids ]); print $_->uid, $_->subject, $_->date, $_->rfc822_size; print join(', ', @{$_->from}); # etc. ssl => 1, ) or die "Could not connect to IMAP server"; $imap->login or die('Login failed: ' . $imap->last_error); my @messages = $imap->search('FLAGGED'); my $summaries = $imap->get_summaries(@messages); print $_->uid." ", $_->subject." ", $_->dat...
