информационная безопасность
без паники и всерьез
 подробно о проекте
За кого нас держат?Все любят медПортрет посетителя
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Claude Code мог сохранять пароли... 
 DigiCert оставила внутренний сервер... 
 Подмена пакетов в APT для Debian... 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
если вы видите этот текст, отключите в настройках форума использование JavaScript
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] Напишите пример socket, plz :) 20.03.03 18:32   [vh]
Автор: choor Статус: Elderman
<"чистая" ссылка>
Напишите пример работы с сокетом... Скрипт коннектится к сайту и скачивает с него определённый файл. И если не затруднит, то с коментариями.... Хочу с сокетами разобраться.
[C++] ядумаю это подойдет 24.03.03 10:52  
Автор: Tamas Статус: Member
<"чистая" ссылка>
#!/usr/bin/perl

$smtp="localhost";
$port=80;

use Socket;

$ip_addr =(gethostbyname($smtp))[4];
$host_addr=sockaddr_in($port,$ip_addr);

socket(sock,PF_INET,SOCK_STREAM,IPPROTO_IP);
connect(sock, $host_addr);
select(sock); $|=1;select(STDOUT);

print sock "GET / HTTP/1.1\r\n\r\n";
$res=<sock>;print "$res";

close(sock);
[C++] На си подойдёт ? 22.03.03 08:36  
Автор: Tamas Статус: Member
<"чистая" ссылка>
Нет, ну чё никто не знает, как с сокетами в перле работать? :( 21.03.03 00:03  
Автор: choor Статус: Elderman
<"чистая" ссылка>
я бы посоветовал с такими вопросами - в beginners 21.03.03 00:19  
Автор: vh <Дмитрий> Статус: Member
<"чистая" ссылка>
1





Рейтинг@Mail.ru


  Copyright © 2001-2026 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach