|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Anton Y. Shevtsov 2:5020/400 31 Aug 2004 13:01:15
To : All
Subject : MAIL::Pop3client чегото неполучается...
--------------------------------------------------------------------------------
Hикак не могу заставить видеть Mail::Pop3client видеть многострочные
поля в заголовке..
вот к примеру поле Subject
.......
From: "Subscribe.Ru" <namma010101010101@subscribe.ru>
Subject: =?windows-1251?Q?Perl=20-=20=EF=EE=E4=EF=E8=F8=E8=F1=FC=20=E8=20?=
=?windows-1251?Q?=F3=F7=E8=F1=FC!=20=CF=E8=F8=E5=EC=20?=
=?windows-1251?Q?=FD=EB=E5=EC=E5=ED=F2=E0=F0=ED=FB=E9=20?=
=?windows-1251?Q?=F0=E0=F1=F1=FB=EB=F9=E8=EA=20?=
=?windows-1251?Q?SMS?=
MIME-Version: 1.0
Content-Language: ru
.....
используя стандартный пример для выцепления темы\автора
use Mail::POP3Client;
$login = "login";
$password = "passs";
$mailserver = "pop3_server";
$pop = new Mail::POP3Client(USER => $login, PASSWORD => $password, HOST
=> $mailserver, PORT => 110, DEBUG => 0, AUTH_MODE => 'BEST', TIMEOUT =>
60 );
if ($pop->Count() == -1 ) {
print "Hе удалось соединиться с сервером!<br>\n";
} else {
print "В вашем почтовом ящике ",$pop->Count()," сообщений.<br>\n";
}
for( $i = 1; $i <= $pop->Count(); $i++ )
{
foreach( $pop->Head( $i ) )
{
/^(Subject|From):\s+/i && print $_."\n";
}
print "\n------------------------------\n"
}
$pop->Close();
вместо
Subject: =?KOI8-R?Q?=EE=C1=D2=CF=C4?=, =?KOI8-R?Q?=C1_=CE=C5=CB=D4=CF?=
PHP =?KOI8-R?Q?=C9_=D0=D2=CF=DE=C9=CD?=
=?KOI8-R?Q?_=D7=C5=C2=D0=D2=CF=C7=D2=C1=CD=C9=CE=C7=CF=CD_=CE?=
=?koi8-r?B?xSDCwczVxdTT0T8=?=
получаю только
Subject: =?KOI8-R?Q?=EE=C1=D2=CF=C4?=, =?KOI8-R?Q?=C1_=CE=C5=CB=D4=CF?=
пробовал табы убирать сначала
$_=~s|\t||gs;
и переносы убирать
$_=~s|\n||gs;
нифига.. не помогает..
напишите мне пример какой-нибудь плиз, где можно выкусить всю
subject\from из письма..
--- ifmail v.2.15dev5.3
* Origin: TNGF (2:5020/400)
Вернуться к списку тем, сортированных по:
|
