Форум программистов [Powered by Invision Power Board]

Код


use Net::POP3;
use MIME::Parser;
use MIME::Base64;
use Convert::Cyr qw(chcp);

...

sub read_mail
{
  $pop = Net::POP3->new("www.host.ru", Timeout => 60);
  if ($pop->login($login, $pass) > 0)
    {
       my $msgnums = $pop->list;
       my $NumberLetter = scalar keys %$msgnums;
       my $diff = $NumberLetter - 1;
       foreach my $msgnum (keys %$msgnums)
         {
            my $msg = $pop->get($NumberLetter - $diff);
            $diff = $diff - 1;
        
            foreach $line (@$msg)
             {
               # построчно перебираю строки, чтоб получить тему, от кого, кому, дату, копию...
             }
             &write_mail; # дальше требуемые поля записывается в БД.
          } 
       $pop->quit;
   }  
}