会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前#----------------------------- |
print SERVER "What is your name?\n"; |
chomp ( $response = <SERVER> ); |
#----------------------------- |
defined ( send ( SERVER, $data_to_send, $flags ) ) |
or die "Can't send : $!\n"; |
recv ( SERVER, $data_read, $maxlen, $flags ) |
or die "Can't receive: $!\n"; |
#----------------------------- |
use IO::Socket; |
$server->send ( $data_to_send, $flags ) |
or die "Can't send: $!\n"; |
$server->recv ( $data_read, $flags ) |
or die "Can't recv: $!\n"; |
#----------------------------- |
use IO::Select; |
$select = IO::Select->new(); |
$select->add ( *FROM_SERVER ); |
$select->add ( $to_client ); |
@read_from = $select->can_read ( $timeout ); |
foreach $socket ( @read_from ) |
{ |
# read the pending data from $socket |
} |
#----------------------------- |
use Socket; |
require "sys/socket.ph"; |
# for &TCP_NODELAY |
setsockopt ( SERVER, SOL_SOCKET, &TCP_NODELAY, 1 ) |
or die "Couldn't disable Nagle's algorithm: $!\n"; |
#----------------------------- |
setsockopt ( SERVER, SOL_SOCKET, &TCP_NODELAY, 0 ) |
or die "Couldn't enable Nagle's algorithm: $!\n"; |
#----------------------------- |
$rin = ''; |
# initialize bitmask |
vec ( $rin, fileno ( SOCKET ), 1 ) = 1; |
# mark SOCKET in $rin |
# repeat calls to vec() for each socket to check |
$timeout = 10; |
# wait ten seconds |
$nfound = select ( $rout = $rin, undef, undef, $timeout ); |
if ( vec ( $rout, fileno ( SOCKET ),1 ) ) |
{ |
# data to be read on SOCKET |
} |
#----------------------------- |
