VPF::Получить содержание почтового ящика

Nаtаshа

Дата 11.10.2011, 00:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 9.10.2011

Репутация: нет
Всего: нет

Код




use Socket;



.....

#проверки на ошибки
print "Listing messages ... ";
if(!send(SOCK,"LIST\n",0))
{
    print "FAILED\n";
    exit(1);
}
if(!recv(SOCK,$listnum,1000,0))
{
    print "FAILED\n";
    exit(1);
}
if($listnum !~ /\+OK.*/)
{
    print "FAILED\n$data";
    exit(1);
}
print "OK\n$listnum\n";


#*****надо считать всю почту в файл

open(OUT,">>messages.txt");


if(!send(SOCK,"RETR 5\n\n",0))
{
    print "FAILED\n";
    exit(1);
}

if(!recv(SOCK,$data,1000,0))
{
    print "FAILED\n";
    exit(1);
}
print "$data\n";
close(OUT);

#*****считать письма в файл

close(SOCK);

exit(0);

Собственно немогу понять как считать сами письма и записать в файл. Соединение есть. Количество писем возвращает.
Вот ответ

Цитата

Resolving pop.mail.ru ... OK
Connecting to pop.mail.ru ... OK
Awaiting server response... OK
Starting autentification ... OK
Listing messages ... OK
+OK 18 messages (53248 octets)

1 3407

2 3468

3 4807

4 2828

5 2489

6 2073

7 1963

8 2233

9 3896

10 2379

11 1881

12 2742

13 6754

14 3999

15 2237

16 1746

17 2229

18 1894

.

+OK 2489 octets

Это сообщение отредактировал(а) Nаtаshа - 16.10.2011, 14:43

kotkota23

Дата 11.10.2011, 09:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 26.9.2011

Репутация: нет
Всего: нет

Nаtаshа,
засылай в сокет retr, номер письма, а потом читай из сокета до точки

dixoNICH

Дата 11.10.2011, 16:18 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 222
Регистрация: 20.3.2011

Репутация: нет
Всего: нет

Код


vec(my $win, fileno($socket), 1) = 1;
        my $timeout = 10;
        while(1){
            my $p = select($win, undef, undef, $timeout);
            if($p>0){
                sysread($socket,$str,1024);
            }else{
             print "Timeout\n";
            }
            $buf .=$str;
            last if $str=~/\n?\.\r\n$/;
            print FILE $buf;

Nаtаshа

Дата 11.10.2011, 20:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 9.10.2011

Репутация: нет
Всего: нет

dixoNICH, Спасибо. все работает, но вот как вытянуть из

Код


if(!send(SOCK,"LIST\n",0))
{
    print "FAILED\n";
    exit(1);
}
if(!recv(SOCK,$listnum,1000,0))
{
    print "FAILED\n";
    exit(1);
}
if($listnum !~ /\+OK.*/)
{
    print "FAILED\n$data";
    exit(1);
}
print "OK\n$listnum\n";

Тут в listnum хранится инфа о пиьмах. А как вытянуть из listnum число писем и соответсвенно скачивать все письма из ящика.

Это сообщение отредактировал(а) Nаtаshа - 11.10.2011, 20:43

kotkota23

Дата 11.10.2011, 22:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 26.9.2011

Репутация: нет
Всего: нет

Nаtаshа, перечитай что я уже писал, посмотри в интернете пример сессии

Nаtаshа

Дата 11.10.2011, 22:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 9.10.2011

Репутация: нет
Всего: нет

Всем спасибо! Во всем сама разобралась.

Привет, Александру Зульфаровичу....

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »