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

Форум программистов > Perl: Общие вопросы > Посылка данных через Socket

Автор: XszzAoH 28.12.2007, 22:48

Всем привет . Как организовать передачу данных серверу посредствам сокет ? Вот часть того , что отправляет и принимает сервер. Если можно с примером . Спасибо огромное Код 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

достаточно поискать на 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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)