develooper Front page | perl.ithreads | Postings from July 2008

Re: Thread::pool

Thread Previous
From:
Javier
Date:
July 30, 2008 01:00
Subject:
Re: Thread::pool
Message ID:
602eb19e0807300100w35e05d73g31c8664fa45b82bc@mail.gmail.com
Hi!

scan_files() is a function. Where is? This function is present in same
file. This code is very simple:
= = = = * * * * = = = =
sub scan_files
{
        my $DIR = "/var/workq/";
        while(1)
        {
                opendir(DIRHANDLE, $DIR) || die "ERROR: $DIR not read\n";
                foreach (readdir(DIRHANDLE))
                {
                        if (!-d $_)
                        {
                                $pool->job($_);
                        }
                }
                closedir DIRHANDLE;
                sleep($Fax::Config::param{'queuescanperiod'});
        }
}
= = = = * * * * = = = =

2008/7/29 Chris Fowler <cfowler@outpostsentinel.com>:
> Where is scan_files()?
>
> --
> Chris Fowler
> OutPost Sentinel, LLC
> AIM: strtok2002
> Support @ SIP/support@pbx.opsdc.com
> or 678-804-8193
> Email Support @ support@outpostsentinel.com
>
>
>



-- 
A greeting,

Javier.

Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About