Исходное сообщение
"tcp-сервер" Отправлено PoizOn, 18-Мрт-05 13:56
>>Я писал недавно сервер на tcp и спокойно фильтровал подключения по ИП. >>Только я предпочитаю работать с Socket, а не с IO::Socket в >>таких задачах. > >а можно чуть подробней, например: > >use Socket; >socket(SERVER,PF_INET,SOCK_STREAM,getprotobyname('tcp')); >setsockopt(SERVER,SOL_SOCKET,SO_REUSEADDR,1); >$addr=sockaddr_in($some_port,INADDR_ANY); >bind(SERVER,$addr) or die "can't bind: $!\n"; >listen(SERVER,0) or die "can't listen: $!\n"; >while (accept(CLIENT,SERVER)) >{ > #blahblahblah >} > >как мне в этом случае до accept'a определьть ip подключающегося? >или в принципе подход неверен? Для примера приведу кусок из моего сервера: while(1) { my($buffer); next unless my $remote_addr=accept(SESSION,SOCK); my($port,$hisaddr)=sockaddr_in($remote_addr); ## если IP нету в конфигах - отрубаем клиента my $ip=inet_ntoa($hisaddr); next if $ip ne 'Что нам нужно'; ... } Здесь конечно не до accept'a идет отключение - но без акцепта - думаю никак, ведь сервер должен послать клиенту отказ -а для этого нужно установить accept. Во всяком случае мой сервак раобтает без проблем и я его тестировал на перегруз - чисто - он отключает клиентов и не нагружает систему даже при большом кол-ве запросов.