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

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > получение почты

Автор: burakov 15.6.2012, 20:00

Добрый день,
задача прочитать почту с почтового ящика

почту получаю
там нечто

Код


 <div class=3Dcity>=CC=EE=F1=EA=E2=E0</div>
 <div class=3Dsearch> =EA=F3=EF=E8=F2=FC =F2=E5=EB=E5=E2=E8=E7=EE=F0 sams=
 ung </div>

то что раньше было

Код


    '<div class="city">Москва</div>' . '<div class="search">купить телевизор samsung</div>';

почитал -- говорят это закодировано
и поможет
use MIME::QuotedPrint;

раскодирую
получаю ПОЧТИ ТО . но НЕ ОНО!!!!!

Код


 <div class=city>Москва</div><div class=search>купи ть телевизор samsung</div>

исчезли кавычки class=""
и появился пробел в слове "купить"

что происходит?
как получить "правильное" письмо.

письмо на ящик посылается в кодировке cp1251 клиентом BLAT

получаю почту обыкновенно

Код


my $pop = Net::POP3->new ($pop3host, Timeout => 60);

if ($pop->login ($username, $password) > 0) {
  my $msgnums = $pop->list; # hashref of msgnum => size
  
  foreach my $msgnum (keys %$msgnums) {
    my $msg = $pop->get($msgnum);
...............

Автор: burakov 15.6.2012, 22:58

нашел откуда пробел...
моя ошибка..

но кавычки не проходят..

Автор: krypt3r 19.6.2012, 07:20

В исходном тексте у вас нет кавычек (=22)

Код


<div class=3Dcity>=CC=EE=F1=EA=E2=E0</div>
...

Претензий к модулю не должно быть. Потерявшиеся кавычки ищите в другом месте