Незнаю, как не пробую все равно:
for ($i=1; $i<= $pop->Count(); $i++) {
my $head = MIME::Head->read($pop->Head($i));
my $from=$head->get(\'From\');
my $subject=$head->get(\'Subject\');
print "$i From: $from Subject: $subject";
#print $head;
#print $pop->Head($i);
}
Выдает:
1 From: Subject:
for ($i=1; $i<= $pop->Count(); $i++) {
my $head = MIME::Head->read($pop->Head($i));
my $from=$head->get(\'From\');
my $subject=$head->get(\'Subject\');
#print "$i From: $from Subject: $subject";
#print $head;
print $pop->Head($i);
}
А вот что передается в $head:
Return-Path: X-Original-To:
skif@xxx.kiev.uaDelivered-To:
skif@xxx.kiev.uaReceived: from localhost (localhost.owe [127.0.0.1]) by server.owe (Postfix) with ESMTP id 6CB1433D6A for ; Wed, 8 Sep 2004 16:22:11 +0000 (GMT)Received: from server.owe (freebsd2.owe [192.168.10.114]) by server.owe (Postfix) with ESMTP id 5855A33C9A for ; Wed, 8 Sep 2004 16:22:00 +0000 (GMT)To: "skif@xxx.kiev.ua" Subject: testing mail systemFrom: Skif Organization: he-he
)Content-Type: text/plain; format=flowed; charset=koi8-rMIME-Version: 1.0Content-Transfer-Encoding: 8bitDate: Wed, 08 Sep 2004 16:21:59 -0000Message-ID: User-Agent: Opera7.23/FreeBSD M2 build 518X-Virus-Scanned: by amavisd-new at xxx.kiev.ua