Hi,
Thank you for your reply. This part of the system I am working on periodically reads a directory, builds an array, and threads calls to process each file in the array.

Given n number of elements in the array, I have limited the number of threads I am using so the process can send 1..$threads thread per file in given a subsets of the files. (I am trying to give each thread a unique index into the array so there are no deadlocks.) The code is something like this: 

# PSEUDOCODE
...

our $MAXTHREADS = 5;
our @aryItems : shared;
...

main();

sub main {...}

sub process {
        my $threads = 0;
        my $files = (@aryItems);

        if ($files > $MAXTHREADS) {
            $threads = $MAXTHREADS;
        }
        
        initThreads($threads, ...);
...
}

sub initThreads {
    ...
    my $threads = 0;
    ...

    ($threads, ...) = @_;

    our @threads = ();
    
    for (0..$threads - 1) {
        push @threads, threads->new(
                                   \&Foo::run,
                                    id => $_,
                                    ...
                                   );
    }
}
...
####
Foo class
####
package Foo;
use threads;
use threads::shared;
...

sub new{...};
sub run{<processing and locking code goes here>};

[download]

-P0w3rK!d

In reply to Re: Re: Re: Re: Threading: Removing an element from a shared array by P0w3rK!d
in thread Threading: Removing an element from a shared array by P0w3rK!d

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.