Problems? Is your data what you think it is? | |
PerlMonks |
Re^15: PANIC: underlying join failed threded tcp serverby BrowserUk (Patriarch) |
on Oct 24, 2012 at 23:52 UTC ( [id://1000737]=note: print w/replies, xml ) | Need Help?? |
HEY! Got the server working by putting some of Thread::Queue into my code, and now it seems to be running like a champ. If you'd like to see the code let me know, but I'm guessing you have a fair idea of how its working. Ran 200k commands in 2 hours without a hiccup. Cool. (Yes. I would really like to see the code. You have my email id.) And that is really interesting that threads got messed up. I'll definitely try downgrading perl and testing it out but as it is no longer a time critical thing, and more a matter of interest, I probably wont get to it until next week. I took your latest code -- stripped out the defensive stuff out of rxd.pl:
Tweaked the client (rx,pl) to run many commands in loop and do so from multiple threads:
With 5.16.1, this falls in a heap with 1 thread after just a few seconds. The same "invalid handle" stuff as you've been seeing. With 5.10.1, I ran the above with those numbers -- 1000 concurrent clients, each running 1000 commands (the simple dir /s) and it ran to completion (after 1,000,000 commands served :), without errors in a little over 1 1/2 hours. And that's with 3 cores running the server and 1 core running the clients. Peak memory usage for the server was around 1.5 GB. Again, I really cannot stress enough how thankful I am for all your help debugging. Could not have gotten this far without you. YW. I learn almost as much from each of these real-world uses as the people I'm helping do. With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
In Section
Seekers of Perl Wisdom
|
|