comment on

I don't know why I missed your answer, but thanks again very much. Sorry it took me so long to respond.
Yes, there is a very specific reason why I want to create CPU affinity: I am using this script to launch multiple instances of an old single threaded application and each instance is going to be working on the same overall dataset, but the dataset is a collection of files, and I do not want any file clobbering. I am specifically and purposefully trying to eliminate any chance of one of these processes interfering (even just reading) the same file another process is currently working on.

Sorry if I seem to you to be asking basic questions - I am a plumber by trade...teaching oneself to code is very difficult.

I tried amending your example slightly to this - and it does not give the result I expect with regard to the $process values:

#!/usr/bin/perl
use strict; use warnings; use 5.010;
use Data::Dumper; use HTTP::Tiny;
use Time::HiRes 'gettimeofday', 'tv_interval';
use MCE; use MCE::Shared;

my $ua   = HTTP::Tiny->new( timeout => 10 );
my @urls = qw< gap.com amazon.com ebay.com lego.com wunderground.com
    imdb.com underarmour.com disney.com espn.com dailymail.com >;

my $report = MCE::Shared->hash;
my $process = MCE::Shared->scalar;
$process = 0;

MCE->new( max_workers => 6 )->foreach( \@urls, sub {
    my $start = [gettimeofday];
    $process++;
    say $process."->GETting https://".$_;
    $ua->get('https://' . $_);
    $report->set( $_, tv_interval($start, [gettimeofday]) );
});

say Dumper $report->export;
[download]

The output reads:

1->GETting https://gap.com
1->GETting https://amazon.com
1->GETting https://ebay.com
1->GETting https://lego.com
1->GETting https://wunderground.com
1->GETting https://imdb.com
2->GETting https://underarmour.com
2->GETting https://disney.com
2->GETting https://espn.com
3->GETting https://dailymail.com
$VAR1 = bless( {
                 'disney.com' => '1.15682',
                 'amazon.com' => '4.607657',
                 'wunderground.com' => '0.46855',
                 'dailymail.com' => '2.355818',
                 'espn.com' => '1.170818',
                 'gap.com' => '3.819699',
                 'ebay.com' => '1.479624',
                 'underarmour.com' => '2.919818',
                 'imdb.com' => '2.540127',
                 'lego.com' => '0.919592'
               }, 'MCE::Shared::Hash' );
[download]

whereas I had expected:

1->GETting https://gap.com
2->GETting https://amazon.com
3->GETting https://ebay.com
4->GETting https://lego.com
5->GETting https://wunderground.com
6->GETting https://imdb.com
7->GETting https://underarmour.com
8->GETting https://disney.com
9->GETting https://espn.com
10->GETting https://dailymail.com
$VAR1 = bless( {
                 'disney.com' => '1.15682',
                 'amazon.com' => '4.607657',
                 'wunderground.com' => '0.46855',
                 'dailymail.com' => '2.355818',
                 'espn.com' => '1.170818',
                 'gap.com' => '3.819699',
                 'ebay.com' => '1.479624',
                 'underarmour.com' => '2.919818',
                 'imdb.com' => '2.540127',
                 'lego.com' => '0.919592'
               }, 'MCE::Shared::Hash' );
[download]

Can you explain this?

Thanks.

In reply to Re^6: Create parallel database handles... (MCE::Loop) by perlygapes
in thread Create parallel database handles or SQL statements for multi-threaded/process access to Postgres DB using DBI, DBD::Pg and Parallel::ForkManager by perlygapes

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


"be consistent"
	PerlMonks