Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Послать байты в сокет  (Прочитано 8464 раз)
0 Пользователей и 1 Гость смотрят эту тему.
perl6
Помогающий

ru
Offline Offline

« : 18-10-2018 01:32 » 

Доброго утра. Не пойму, как послать байты в сокет. На пайтоне проблем никаких, а на перле?
Код: (Python)
#!/usr/bin/env python3

# -*- coding: utf-8 -*-

import socket

a = bytearray(b'\x00\x00\x00\x00\x04\x00\x00\x00')

s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s.settimeout(3)
s.connect(('host', port))

s.send(a)
d = bytearray(s.recv(1024))

Пример работает, как часы. Байты в строке из вайшарка.
Записан
Алексей++
глобальный и пушистый
Глобальный модератор

ru
Offline Offline
Сообщений: 13


« Ответ #1 : 18-10-2018 04:55 » 

 Внимание! Говорит и показывает...
можно вот так
Записан

RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #2 : 18-10-2018 07:26 » 

Да, на питоне тебе будет проще программировать копипастой Отлично

По сути вопроса... А в чем вопрос то заключается? Сокет — такой же файловый дескриптор, шли данные теми же print или syswrite. Как открыть сокет, действительно погугли. Если один прямой способ со встроенными командами, пару способов со вспомогательными библиотеками, ну и различные фреймворки, позволяющие, в том числе, работать с сокетами. И маны никто не отменял.

$ perldoc perlfunc
....
    Low-level socket functions
        "accept", "bind", "connect", "getpeername", "getsockname",
        "getsockopt", "listen", "recv", "send", "setsockopt", "shutdown",
        "socket", "socketpair"
....

$ perldoc -f connect

    connect SOCKET,NAME
            Attempts to connect to a remote socket, just like connect(2).
            Returns true if it succeeded, false otherwise. NAME should be a
            packed address of the appropriate type for the socket. See the
            examples in "Sockets: Client/Server Communication" in perlipc.

$perldoc perlipc
....
Sockets: Client/Server Communication
....
  Internet TCP Clients and Servers
    Use Internet-domain sockets when you want to do client-server
    communication that might extend to machines outside of your own system.

    Here's a sample TCP client using Internet-domain sockets:................
....
И дальше начинаются примеры на любой случай.

На практике удобнее библиотеки или фреймворки. Я использую событийные циклы, это удобно и универсально, но это асинхронный подход, не для новичка.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
perl6
Помогающий

ru
Offline Offline

« Ответ #3 : 18-10-2018 19:30 » 

Пробовал уже. Там примеров рабочих нет.
Записан
perl6
Помогающий

ru
Offline Offline

« Ответ #4 : 18-10-2018 19:31 » new

Да, на питоне тебе будет проще программировать копипастой Отлично

По сути вопроса... А в чем вопрос то заключается? Сокет — такой же файловый дескриптор, шли данные теми же print или syswrite. Как открыть сокет, действительно погугли. Если один прямой способ со встроенными командами, пару способов со вспомогательными библиотеками, ну и различные фреймворки, позволяющие, в том числе, работать с сокетами. И маны никто не отменял.

$ perldoc perlfunc
....
    Low-level socket functions
        "accept", "bind", "connect", "getpeername", "getsockname",
        "getsockopt", "listen", "recv", "send", "setsockopt", "shutdown",
        "socket", "socketpair"
....

$ perldoc -f connect

    connect SOCKET,NAME
            Attempts to connect to a remote socket, just like connect(2).
            Returns true if it succeeded, false otherwise. NAME should be a
            packed address of the appropriate type for the socket. See the
            examples in "Sockets: Client/Server Communication" in perlipc.

$perldoc perlipc
....
Sockets: Client/Server Communication
....
  Internet TCP Clients and Servers
    Use Internet-domain sockets when you want to do client-server
    communication that might extend to machines outside of your own system.

    Here's a sample TCP client using Internet-domain sockets:................
....
И дальше начинаются примеры на любой случай.

На практике удобнее библиотеки или фреймворки. Я использую событийные циклы, это удобно и универсально, но это асинхронный подход, не для новичка.


Ясно. Посмотрю, что и как.
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines