если ты юзаешь use socket -- то возможно перехватывать подключение клиента к прослушиваемомму порту и потом отправка клиенту чего либо
Не понял. Это и так ясно, что можно отловить и послать ))
Просто такая проблема:
Серверу запрос отправляется на порт 2222 (например)
А ответ должен прийти на порт 3333.
Вот одним сокетом как так сделать?
Ты пишешь клиент или сервер? Одним сокетом такое не сделать, сокет это iport и с двумя портами ты сокет не создашь и после создания порт тоже не поменяешь, и чем тебя смущает создание двух сокетов?
если я правильно тебя понял то vladest не слушай этих дядек =) все можна делать.
Лучше всего на мой взгляд сделать это используя fork() где скажем родитель будет читать из сокета а дочерный будет писать в сокет.
ps: и обзаведись толковой литературой., а так же perlipc and perlfork
Последний раз редактировалось n4n0bit; 10.10.2007 в 10:29..
#!/usr/bin/perl
print "Content-type: text/html\n\n";
my $host = "89.108.80.80";
use Net::Ping;
$p = Net::Ping->new();
print "$host is alive.\n" if $p->ping($host);
$p->close();
Вот только он не чего не выводит... Библиотека Net::Ping установлена, выводит пустую стрницу и все... в чем может быть загвоздка?