Pop3 клиент на Socket

Тема в разделе "Perl программирование", создана пользователем -, 19 сен 2009.

  1. Гость

    Здравствуйте.
    Нужно написать поп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\r\n', 0);
    @data=<POP3_SOCK>;
    print @data;

    $com="USER ".$ARGV[1]."\r\n";

    print $com;
    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 abc
    +OK POP Ya! v1.0na
    USER g-shadrin
    Ne verniy login

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


    Почему?
     
Загрузка...
Похожие Темы - Pop3 клиент на
  1. phpmasters
    Ответов:
    10
    Просмотров:
    3.360
  2. Miolnir
    Ответов:
    6
    Просмотров:
    2.033
  3. Kaiser
    Ответов:
    0
    Просмотров:
    1.842
  4. lmike
    Ответов:
    2
    Просмотров:
    3.974
  5. Omh
    Ответов:
    9
    Просмотров:
    4.399

Поделиться этой страницей