Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
[C++] ядумаю это подойдет 24.03.03 10:52 Число просмотров: 1079
Автор: 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);
|
|
|