LINUX.ORG.RU

Ответ на: Re: список отправителей на Perl от anonymous

Re: список отправителей на Perl

а, в этом смысле (те кто письма прислали?), тогда так:


#!/usr/bin/perl -w

use strict;
use Net::POP3;

my( $host, $login, $pass ) = ( shift, shift, shift );

my $pop = Net::POP3->new($host);
$pop->login($login, $pass);
my $messages = $pop->list;
foreach my $msgid (keys %$messages) {
my $message = $pop->get($msgid);
unless (defined $message) {
warn "Couldn't fetch $msgid from server: $!\n";
next;
}
grep {print $_,"\n" if m!From: (.*?)\n!} @$message;
# $pop->delete($msgid);
}

vilfred ☆☆ ()
Ответ на: Re: список отправителей на Perl от vilfred

Re: список отправителей на Perl

либо какой-то другой модуль, потому как этот качает письма, если надо логиниться на удаленный компьютер

vilfred ☆☆ ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.