Подскажите плз, программист из меня некудышный, но нуна решить такую проблему: перл прога с графическим интерфейсом (Tk), которая отправляет пакеты через сеть, и нужно чтоб при нажатии на кнопку, допустим start, отправлялись пакеты и рядом в Label отображался счетчик пакетов, дело в том что когда я прикрутил отправку пакетов к кнопке, то по нажатию на нее залипал весь графический интерфейс, до тех пор пока цикл отправки пакетов не закончится, с этим справился создав дочерний процесс, через fork(т к с Нитями (Threads) никогда не работал), НО осталось прикрутить счетчик, и как бы я не извращался он не хочет записывать в Label инфу до тех пор пока не выполнит цикл, т е не отправит все пакеты....
код кнопки и лабел такой :
sub buttom1 { $child = fork; if ($child == 0){ $packet = new Net::RawIP ( { tcp=>{} } ); $packet->set ({tcp => {dest => xx,source => xx, syn => 1, }}); foreach (1..5){ $|=1; $packet->set({ip=>{daddr => '10.x.x.x',saddr => '10.x.x.x'}}); $packet->send ( 1, 1 ); $count =$count + 1; $e2->configure(-text => "$count"); }}}
где $e2 это label
Помогите плз ,очень нужно, просто позарез горла, ЗАРАНЕЕ БЛАГОДАРЕН :))
