VPF::Посылка данных через Socket - Форум программистов

XszzAoH

Дата 28.12.2007, 22:48 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем привет .
Как организовать передачу данных серверу посредствам сокет ?

Вот часть того , что отправляет и принимает сервер.
Если можно с примером . Спасибо огромное

Код


21:44:56.593 Client -> Server: 0x80 (AuthRequest), frequ: 1, len: 0x3E
0000: 80 61 64 6D 69 6E 00 00 00 00 00 00 00 00 00 00 ->.admin..........
0010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 74 ->...............t
0020: 72 61 76 65 6C 6D 61 74 65 00 00 00 00 00 00 00 ->qwertmdat.......
0030: 00 00 00 00 00 00 00 00 00 00 00 00 00 FF       ->..............

21:44:57.765 Server -> Client: 0xA8 (SendShards), frequ: 1, len: 0x2E
0000: A8 2E 00 FF 00 01 00 01 5A 48 4F 00 00 00 00 00 ->........OZO.....
0010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ->................
0020: 00 00 00 00 00 00 00 01 00 00 C3 8A 4A D1       ->............J.

21:44:57.765 Client -> Server: 0xA4 (SendSysInfo), frequ: 1, len: 0x95
0000: A4 03 00 00 01 07 00 00 BC F7 12 00 74 00 50 00 ->............t.P.
0010: 50 51 E5 00 FF 07 00 00 D0 C0 58 00 D8 F7 12 00 ->PQ........X.....
0020: A8 DB A5 00 78 37 5D 00 40 ED D9 00 A0 F7 12 00 ->....x7].@.......
0030: DC FA 12 00 20 CF 54 00 00 00 00 00 44 22 58 00 ->.... .T.....D"X.
0040: 0E 00 50 00 84 A7 68 00 D0 C0 58 00 D8 F7 12 00 ->..P...h...X.....
0050: 4A A1 4B 00 D0 C0 58 00 78 37 5D 00 40 ED D9 00 ->J.K...X.x7].@...
0060: 00 00 00 00 40 ED D9 00 2A 00 00 00 78 37 5D 00 ->....@...*...x7].
0070: 02 00 00 00 00 00 B6 81 01 00 00 00 00 00 5D 00 ->..............].
0080: 02 00 00 00 B8 04 F6 91 64 FF FF FF 88 47 49 A8 ->........d....GI.
0090: 7E 00 4B 29 D8   
                           ->~.K).

vadiml

Дата 29.12.2007, 00:09 (ссылка)

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

Загрузка ...

Опытный

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

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

достаточно поискать на cpan по слову socket:

Код


    use IO::Socket::SSL;

    my $client = IO::Socket::SSL->new("www.example.com:https");

    if ($client) {
        print $client "GET / HTTP/1.0\r\n\r\n";
        print <$client>;
        close $client;
    } else {
        warn "I encountered a problem: ",
          IO::Socket::SSL::errstr();
    }

взято из http://search.cpan.org/~sullr/IO-Socket-SSL-1.12/SSL.pm

а вообще начать можно с http://search.cpan.org/~gbarr/IO-1.2301/IO/Socket.pm

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