Всем привет!
Возникла такая проблема: пытаюсь при помощью модуля Mail::IMAPClient получить список писем в ящике
Вот функция
sub getMSGlist{
my $self = shift;
my $folder = @_[0];
my @msgs =();
$self->{imap}->select($folder);
my @uids = $self->{imap}->search("ALL");
my $flaghash = $self->{imap}->flags(scalar(@uids));
for my $msg(@uids)
{
my $h = $self->{imap}->parse_headers($msg,"Date","Subject","From","Message-ID")||throwError("failed to receive messages list");
push @msgs,{
id => $msg,
title => $h->{\'Subject\'}[0],
flags => join(\',\',@{$flaghash->{$msg}})
};
}
@msgs;
}
На строчке my $flaghash = $self->{imap}->flags(scalar(@uids)) программа вылетает. Если кто разбирался с Mail::IMAPClient подскажите пожалуйста, в чем может быть причина