Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > 0рганизация цикла

Автор: NewPerl 24.8.2006, 17:26

сокеты

Автор: NewPerl 24.8.2006, 22:58

Цикл я сделал, но почему-то пакеты отправляются только один раз и всё =(
Думаю дело в цикле.
Если надо могу кусок кода выложить

Автор: korob2001 24.8.2006, 23:00

Думаю проблема в выборе протокола, так как UDP не гарантирует что все пакеты будут доставлены к месту назначения и не используется для надёжного соединения с сервером. Попробуй сделать тоже самое но с TCP, если и это не поможет покажи код.

Автор: NewPerl 24.8.2006, 23:11

Хотелось бы по udp отправлять, ведь он быстрее

Автор: NewPerl 24.8.2006, 23:49

Я изменил код скрипта

Но всеравно работает очень слабо:
До запуска было отправлено пакетов 406 659
Запустил на 10 сек стало 416 346

Автор: Nab 25.8.2006, 00:23

Не нужно создавать в цикле новый объект каждый раз.

Код


$d = "d" x 999;    
$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$ip", PeerPort => "$port") || die "Failed\n";    
while(1){    
    print $socket "USER $d\n";    
}

Автор: NewPerl 25.8.2006, 00:57

Так я же в предыдущем коде вродк так делал smile

Всё, спасибо, разобрался теперь все пашет на ура !
спасибо smile

Топ можно удалять или закрывать.

Автор: DiverD 22.9.2006, 23:24

так покажи как решил проблему