форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"tcp hex perl"
Сообщение от Serj (??) on 13-Дек-05, 11:34  (MSK)
не могу получить hex данные с сокета, пробую: #!/usr/bin/perl use IO::Socket; use Symbol; use POSIX; $server = IO::Socket::INET->new(LocalPort => 1025,                                      Type => SOCK_STREAM,                                     Proto => 'tcp',                                     Reuse => 1,                                    Listen => 10)    or die "making socket:$@\n"; while (1){    undef $/;    $client = $server->accept();    open (TOPP, ">>./hexlog") or die "Not open $!";    binmode(TOPP, q(:raw));    binmode($client, q(:raw));    $client->recv($data, POSIX::BUFSIZ,0);    print "$data";    print TOPP "$data";    close TOPP; } exit 0; ASCI получает без проблем, а hex кекс :(
	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Сообщения по теме

[Сортировка по времени, UBB]

1. "tcp hex perl"
Сообщение от mthawk (ok) on 13-Дек-05, 12:36  (MSK)
>не могу получить hex данные с сокета, пробую: Из сокета ты получаешь данные. Байты. Складываешь их в файл. Если данные - текст открывая файл для просмотра ты увишишь там текст. если данные - бинарны - ты увидишь там то же, что открывая бинарный файл. если стоит задача в файл складывать hex коды того что получаешь - переменную $data нужно интерпретировать так $data=~s/((.|\n))/sprintf("%.2X",unpack("C",$1)).' '/ge; И будет тебе hex дамп получаемых данных
Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "tcp hex perl"
	Сообщение от Serj (??) on 13-Дек-05, 12:54  (MSK)
	просто оно вообще ничего не пишет в файл, данные идут, смотрю tcpdump -X -in eth0 с той же железки ASCI данные принимаются нормально выходит что на порт данные приходят, а из сокета их вынуть не получается
	Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ]