Problems? Is your data what you think it is? | |
PerlMonks |
Re: websocket infinit loopby huck (Prior) |
on Dec 13, 2016 at 02:12 UTC ( [id://1177681]=note: print w/replies, xml ) | Need Help?? |
While you have told us what you have "done", you have neglected to tell us what has then happened. have you seen that the script progresses past # Here the script and server will exchange information few times ? What happens inside dosomething() and dosomething2(); There are people that will tell you not to use &sub to call a subroutine because of what happens to the parms list but i am sortof concerned that neither has any parms that you supply. i would expect then that they would start with something like my $buf; my $rv = sysread($net, $buf, 64*1024, length($buf)); and my $buf; my $rv = sysread($server, $buf, 64*1024, length($buf)); Since i dont see any use warnings; use strict; i expect you are assuming that $net and $server are globals and are available to those subs also after the $rv=sysread you should have some sort of test like
I should also point out that 0.05 is rather short for the timeout, since can_read will block until it has something you can read. with the very short timeout while(1) will loop with nothing to do a LOT
In Section
Seekers of Perl Wisdom
|
|