Re^6: Trying to thread a daemon with threads and Thread::Queue

the empty loop in the main thread:

    while ($running)
    {
        # Keep running
    }
[download]

was to keep the script from ending (or code falling off the end of the script) soon after it spawns the threads... guess you're right..

So what do you suggest I do to prevent the script from ending after the main thread spawns the threads ? sleep while ($running); ?

Comment on Re^6: Trying to thread a daemon with threads and Thread::Queue Download Code

Replies are listed 'Best First'.
Re^7: Trying to thread a daemon with threads and Thread::Queue by BrowserUk (Patriarch) on Sep 02, 2008 at 22:05 UTC
So what do you suggest I do to prevent the script from ending after the main thread spawns the threads ? sleep while ($running); ? That is the simplest option. Better would be to not detach your threads and use join: `my @threads; for (1..$listeners) { push @threads, threads->create(\&handleConnection, $main_sock) +; } $_->join for @threads;` [download] But for that to work, you need to ensure that all your threads will terminate at the appropriate time. That means making your `$running` variable shared, and then ensuring that it will be checked and acted upon within your select loop. And for that to work, you need to ensure that it will be check regularly, and not only when the select returns some IO activity, and that means using a timeout on the select. In turn, that will probably require making your sockets non-blocking. 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. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^7: Trying to thread a daemon with threads and Thread::Queue
by BrowserUk (Patriarch) on Sep 02, 2008 at 22:05 UTC

So what do you suggest I do to prevent the script from ending after the main thread spawns the threads ? sleep while ($running); ?

That is the simplest option.

Better would be to not detach your threads and use join:

    my @threads;
    for (1..$listeners) {
        push @threads, threads->create(\&handleConnection, $main_sock)
+;
    }
    $_->join for @threads;
[download]

But for that to work, you need to ensure that all your threads will terminate at the appropriate time. That means making your $running variable shared, and then ensuring that it will be checked and acted upon within your select loop. And for that to work, you need to ensure that it will be check regularly, and not only when the select returns some IO activity, and that means using a timeout on the select. In turn, that will probably require making your sockets non-blocking.

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.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

[reply]
[d/l]
[select]