VPF::POP3 клиент на Socket - Форум программистов

GShadrin

Дата 18.9.2009, 18:31 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте.
Хочу написать поп3 клиент на перле.

Код


use Socket;

sub printerror #выводит ошибки
{
    warn "$_[0]\n";
}

socket(POP3_SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
# Конвертирует имя сервера в бинарную последовательность.
$iaddr = inet_aton($ARGV[0]);
$port=110;
# Упаковывает все в понятную функции connect последовательность.
$paddr = sockaddr_in($port, $iaddr);
connect(POP3_SOCK, $paddr);

send (POP3_SOCK, 'privet', 0);
@data=<POP3_SOCK>;
print @data;

$com="USER ".$ARGV[1];


send (POP3_SOCK, $com, 0);
@data=<POP3_SOCK>;

print @data;
if (substr($data[0],0,3) ne '+OK')
{
    printerror "Ne verniy login";
}



close(POP3_SOCK);

По идее от сервера должны прийти приветствие и результат проверки логина

Но приходит приходит только приветствие:
Z:\Новая папка\perl\pop3>perl pop3.pl pop.yandex.ru g-shadrin
+OK POP Ya! v1.0na #очевидно приветствие

Z:\Новая папка\perl\pop3>

Почему?

Это сообщение отредактировал(а) GShadrin - 19.9.2009, 15:48

shamber

Дата 20.9.2009, 19:47 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

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

GShadrin, у яндекса спросить(rfc рулит)?

Добавлено @ 19:48
а почему не хотите посмотреть готовый модуль для работы с pop3?

Это сообщение отредактировал(а) shamber - 20.9.2009, 22:13

KSURi

Дата 20.9.2009, 20:10 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(GShadrin @ 18.9.2009, 18:31

)

send (POP3_SOCK, 'privet', 0);

А это что? В протоколе такого нет

--------------------

Died at Life.pl line 21

FooBar

Дата 23.9.2009, 04:38 (ссылка)

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

Загрузка ...

Шустрый

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

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

GShadrin, читать нужно в строку, а не в массив. при чтении в массив скрипт висит до тех пор пока сервер не закроет соединение из за неактивности, после чего и печатается только приветствие.

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